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CHAPTER 1 


THE F4 COMPILER 


The OS/8 F4 compiler runs in 8K on either a PDP-8 or a PDP-12. It op- 


erates in three passes to transform FORTRAN IV source programs into 


RALF assembly language. The function of each of the three passes is: 


1. 


Analyze statements, check syntax and convert to a polish 
notation. 


Convert output of PASS1 to RALF assembly language making ex- 


Produce a listing of the FORTRAN source program and/or chain 


to the assembler. 


The following is a more complete description of each of the three 


passes. 


After opening the source language input file(s) and an intermediate 


output file, PASS1 processes statements in the following fashion: 


dig 


Assemble a statement into the statement buffer by reading 
characters from the OS/8 input file. This section eliminates 
comments and handles continuations so that the statement 
buffer contains the entire statement as if it had been written 
on one long line. 

The statement is first assumed to be an arithmetic assignment 
and an attempt is made to compile it as such. This is done 
with a special switch (NOCODE) set so that in the event the 
statement is not arithmetic, no erroneous output is produced. 
Thus, with this switch set, the expression analyzer subroutine 
is used merely as a syntax checker. 


If the statement is indeed an arithmetic assignment statement 


1 ne ee tie spe Bete Cp hoe DS wane arm mRNA eI AN 1 1 : 
(or arithmetic statement function) the switch is set off and 


the statement is then recompiled, this time producing output. 


4, If not an arithmetic assignment, the statement might be one 
of the keyword defined statements. The compiler now checks 
the first symbol on the line to see of it is a legal keyword 
(REAL, GOTO, etc.) and jumps to the appropriate subroutine if 
so. Any statement that is not now classified is considered to 
be in error. 

5. The compilation of each statement takes place. Some state- 
ments produce only symbol table entries (e.g., DIMENSION) 
which will be processed by PASS2. Others use the arithmetic 
expression analyzer (EXPR) and also output special purpose 
operators which will tell PASS2 what to do with the value 
represented by the arithmetic expression (e.g., IF, DO). 

6. After the statement has been processed, control passes to the 
end-of-statement routine which handles DO-loop terminations 
and then outputs the end-of-statement code. 

7. Statements containing some kind of error cause a special 
error code to be output. 

8. The entire process is now repeated for the next statement. 


9. When the END statement is encountered, PASS1 chains to PASS2., 


PASSI1 SYMBOL TABLE 
A significant portion of the PASS1 processing involves the production 
of symbol table entries. These entries contain all storage related 


information, i.e., variable name, type, dimensions, etc. 


The symbol table is organized as a set of linked lists. The first 26 
such lists are for variables, with the first letter of the variable 
name corresponding to the ordinal number of the list. There are also 
separate lists for statement numbers and literals (integer, real, 
complex, double, and Hollerith). In addition to list elements, there 


are special entries for holding DIMENSION and EQUIVALENCE information. 


A detailed description of each type of entry follows. (NOTE: All 
symbol table entries are in Field 1.) 

1. VARIABLE - The first word of each entry is a pointer to the 
next entry, with a zero pointer signaling end of list. The 
second word contains type information. The third word points 
to the dimension and/or equivalence information blocks. The 
next one to three words contain the remainder of the name 
(the first character is implied by which list the entry is in) 
in stripped six-bit ASCII terminated by a zero character. 
Thus, shorter variables take less symbol table space. The 
entries are (as for all lists in the symbol table) arranged 


in order of increasing magnitude, or alphabetically. 


POINTER 

TYPE 
DIMENSION/EQUIVALENCE 
NAME 2-3 

NAME 4-5 

NAME 6 


TYPE WORD FORMAT 


BIT 

g - Variable is in common. 

1 = Variable is dimensioned. 

2 - External symbol or subroutine/function name. 

3 = Symbol is the name of an arithmetic statement function. 
4 - Variable is an equivalence slave. 

5 - Variable is explicitly typed. 

6 = Entry is a literal. 

7 e Variable is a formal parameter. 


4, 


integer 

real 

complex 

double 

logical 

statement number 
common section name 


won fF WNE 


STATEMENT NUMBER - The first two words are the standard 
pointer/type. The next three words are the statement number, 
with leading zeros deleted, in stripped six-bit ASCII, filled 


to the right with blanks. 


POINTER 
TYPE 
NUMBER 1-2 
NUMBER 3-4 
NUMBER 5 


INTEGER OR REAL LITERALS - The first two words are the pointer 
and type. The next three words are the value in standard 
floating-point format (12-bit exponent, 24-bit signed 2's 
complement mantissa). Since the type of the literal must he 
preserved, there are two lists; hence use of 1 and 1.@ in the 
same program will cause one entry in each of the integer and 


real literal lists. 


POINTER 

TYPE 

EXPONENT 
MANTISSA 0-11 
MANTISSA 12-23 


COMPLEX LITERALS - The first two words are standard. The 
next three are the real part in standard floating-point 


format. The next three are the imaginary part. 


5 


6. 


POINTER 

TYPE 

REAL EXPONENT 

REAL MANTISSA 0-11 

REAL MANTISSA 12-23 
IMAGINARY EXPONENT 
IMAGINARY MANTISSA 0-11 
IMAGINARY MANTISSA 12-23 


DOUBLE PRECISION LITERALS ~- The first two words are standard. 
The next six are the literal in FPP extended format (72-bit 


exponent, 60-bit mantissa). 


TYPE 
EXPONENT 


MANTISSA 0-11 P| 


MANTISSA 12-23 
MANTISSA 24-35 


MANTISSA 36-47 Rie sane dl 
MANTISSA 48-59 fee 


HOLLERITH (quoted) LITERALS - The first two words are stan- 
dard. The next N words are the characters of the literal in 


stripped six-bit ASCII, ending in a zero character. 


POINTER 
TYPE 


CHARACTERS 1-2 


etc. eevee. 8 © 8 @ 


DIMENSION INFORMATION BLOCK - If a variable is DIMENSIONed, 
the third word of its symbol table entry will point to its 
dimension information block (may be indirectly, see section 
8 below). The first word of this block is the number of 


dimensions. The second word is the total size of the array 


in elements; thus the size in PDP-8 words may be 3 or 6 times 


this number. The third word contains the “magic number" 


which is computed as follows: 


n-1 1 
MN= ~ 1+ f rol 
j=1 j=l J 


h dimension and n is the number of 


where d. is the 3° 
dimensions. 
For a 3-dimensional variable this number becomes: 


MN+ 1+d,+d,d, 


The magic number must be subtracted from any computed index, 
Since indexing starts at one and not zero. The fourth word 
will (in PASS2) contain the displacement from #LIT of a 
literal which will contain either the magic number in 
un-normalized form (for dimensioned variables which are 
subroutine arguments) or the address of the variable minus 
the magic number (for local or COMMON dimensioned variables). 
This literal is necessary for calling subroutines where a 
subscripted variable is an argument. The next N words are 
the dimensions of the variable. If the variable is a formal 
parameter of the subroutine, it may have one or more dimen- 
sions which are also formal parameters. In this case, the 
magic number is zero, and the dimension(s) is a pointer to 
the symbol table entry for the variable(s) used as a dimen- 
sion. 


NUMBER OF DIMENSIONS 
TOTAL NUMBER OF ELEMENTS 
MAGIC NUMBER 

RESERVED 

DIMENSION 1 


DIMENSION 2 


DIMENSION n 


EQUIVALENCE INFORMATION BLOCK - If a variable is an 
EQUIVALENCE slave variable, the third word of its symbol 
table entry points to the equivalence information block. 

The first word of this block points to the dimension infor- 
mation (if any) of the variable. The second word points to 
the symbol table entry of the EQUIVALENCE master variable. 
The third word is the linearized subscript of the master 

The fourth word is 


the linearized subscript of the slave variable. 


POINTER TO DIMENSIONS 


POINTER TO MASTER — 
MASTER SUBSCRIPT SSM 
SLAVE SUBSCRIPT SSM 
COMMON INFORMATION BLOCK - If a symbol is defined as the name 


of a COMMON section, the third word of its symbol table entry 
points to a list of common information blocks. The first 
word of each such block points to the next block. The second 
word is the number of entries in the list that follows. The 
rest of the block is a set of pointers to the symbol table 


entries of the variables in the COMMON section. 


POINTER TO NEXT CIB 


NUMBER OF ENTRIES 


POINTER TO VARIABLES 
IN THIS COMMON 


PASS1 OUTPUT 

The output of PASS1 is a stream of polish with many special operators. 
Whenever an operand is to be output, the address of its symbol table 
entry is used. The following is a list of the output codes (in their 
mnemonic form, obtain numeric values from listing of PASS1) and the 


operation they are conveying to PASS2: 


1-7 


PUSH 


ADD 


SUB 
MUL 
DIV 
EXP 
NOT 
NEG 


GE 


GT 

LE 

LT 
AND 
OR 

EQ 

NE 
XOR 
EQV 
PAUSOP 


DPUSH 


BINRD1 


FMTRDL 


The next word in the output file is an operand 
(symbol table pointer) to be put onto the stack. 


Add the operands represented by the top two stack 
entries (actually this causes PASS2 to generate 
the RALF coding which will do the desired add). 
Subtract top from next-to-top. 

Multiply top two. 

Divide top into next-to-top. 

Raise next-to-top to power of top. 

Logical .NOT. of top of stack. 

Negate top of stack. 


Compare top two for greater than or equal to, this 
has TRUE value if the next-to-top is .GE. the top. 


Compare for greater than. 

Compare for less than or equal. 

Compare for less than. 

Logical AND of top two entries. 

Logical inclusive OR of top two. 

Compare top two for equality. 

Compare top two for inequality. 

Exclusive OR of top two. 

EQUIVALENCE of top two. 

Use top of stack as PAUSE number. 

The next two words are a symbol table pointer and 
a displacement; put them onto the stack (used for 


DATA statements). 


Take the top of stack as the unit number and com- 
pile an unformatted READ-open. 


The top two stack elements are the unit and format, 
take them and compile a formatted READ-open. 


RCLOSE Compile a READ-close. 
DARD1 Take the top two stack elements as a unit number 


unformatted READ-open. 


BINWR1 

FMTWRI 

WCLOSE Same as for the corresponding READ case, except 

. Ww tt 

DAWR1 substitute the word "WRITE". 

DEFFIL Take the top four stack entries as the unit, 
number of records, record size, and index 
variable and compile a DEFINE FILE call. 

ASFDEF Set the PASS2 switch which says that the following 
statement is an arithmetic statement function. 

ARGSOP The next word is a count, call it n; take the 
previous n stack entrigs as subscripts (or 
arguments) and the Ntl entry from the top as 
the array (or function) name; now compile this 
as an array reference (or function/subroutine call). 

EOLCOD The current statement is completed, reset stacks 
and do other housekeeping. 

ERRCOD The following word contains an error code, write 
it on the TTY together with the current line 
number, and put the error code and line number 
into the error list for possible PASS3. 

RETOPR Compile a subroutine RETURN. 

REWOPR Take the top of stack as a unit and compile a 
rewind. 

STOROP Compile a store of the top of stack into the 
next-to-top. 

ENDOPR Compile a RETURN if a function or subroutine or 
a CALL EXIT if a main program. 

DEFLBL The following word is a symbol table pointer to 
a statement number, compile this as the tag for 
the current RALF line. 

DOF INI The following word is a symbol table pointer for 
the DO-loop index, compile the corresponding 
DO-ending code. 

ARTHIF The following one, two, or three words are symbol 
table pointers to statement numbers for the less 
than zero, zero, and greater than zero conditions 
with the comparison to be made on the top of 
stack. 

LIFBGN The top of stack is taken as a logical expression 


PASS 2 should compile a jump-around-on-false; this 
implies that some statement is to follow. 


bg 


DOBEGN 


ENDFOP 
STOPOP 


ASNOPR 


BAKOPR 


FMTOPR 


GO20PR 


CGO2O0P 


AGO20P 


IOLMNT 


DATELM 


DREPTC 


ENDELM 
PRGSTK 


DOSTOR 


PASS 1 SUBROUTINES 


The top two stack entries represent the final 
value and increment of the DO-loop, process them 
in hopes pf finding a matching DOFINI. 

The top of stack is a unit, compile an END FILE. 
Compile a CALL EXIT. 


The next word is the address of the symbol table 
entry for a statement number; compile an ASSIGN 


of this statement number to the variable represented 


by the top of stack. 


Take the top of stack as the unit and compile 
a BACKSPACE. 


The following word is a count N; the next N words 
after that are the image of the FORMAT statement. 


The following word is the symbol table entry for 
the statement number which is to be executed next. 


The following word is a count N; the next N words 
are symbol table pointers for the statement 
numbers of a computed GO TO list; use the value 
represented by the top of stack to compile a 
computed GO TO into this list. 


Compile an assigned GO TO with the top of stack. 
Take the top of stack as a list element for an 
I/O statement and compile read or write; PASS2 
knows if it is a READ or WRITE by remembering 
previous FMTRD1, FMTWR1, etc. 


The next word is a count N; the next N words are 
a data element. 


The next word is a repetition count for the set 
of DATELMs up until the next ENDELM. 


Signals the end of a data element group. 
Tells PASS2 to purge the top stack entry. 
Performs the same function as STOROP after 


checking the top two stack elements for legal 
DO-parameter type (integer or real). 


The following is a brief description of the function’of each of the 


major PASS1 subroutines: 


RDWR 


Compiles everything in a READ or WRITE statement 
starting at the first left parenthesis. 


BACK1 


GETSS 


MUL12 


DOSTUF 


TYPLST 


LOOKUP 


LUKUP2 


GETCWB 


SAVECP 


GETC 


ERMSG 


GET2C 


Restore character pointer and count for the 
statement buffer from the stack. 


Output a word (the AC on entering) to the PASS1 
output file. 


Test for comma or right parenthesis; skip one 
instruction if a comma, two if a right parenthesis, 
and none if neither. 

Backup the statement buffer character pointer. 
Scans a variable reference, or subscripted variable 
reference with numeric subscripts and returns the 
Perform a 12-bit unsigned integer multiply. 

Handles compilation of DO-loop setup. 

Process a type declaration, DIMENSION, or 

COMMON statement; sets up type bits and/or 


dimension information. 


Perform a symbol table search for variables and 
Hollerith literals. 


Perform a symbol table search for integer, real, 
complex, and double precision literals or 
statement numbers. 


Analyze and process an arithmetic expression. 
Get next character from the statement buffer and 


skip if it is a letter, otherwise put the 
character back and don't skip. 


The first word after the gMS is the negative of 
the ASCII character to test for; if this is the 
next character, skip. 


Get the next character from the statement buffer 
preserving blanks. 


Save the character pointer and count on the 
stack. 


Get the next character ignoring blanks. 
Output an error code to PASSI1 output file. 
Pop the stack into the AC. 

Push the AC onto the stack. 

Analyze and PEOGCSS an arithmetic expression, 
legal to tne left of the equal sign in an 


assignment statement. 


Get the next two character into one word. 


STMNUM Scan otr a statement number and do the symbol 
table search. 


DIGIT Same as letter, except checks for a digit. 

NUMBER Scans off an integer, real, or double precision 
literal. 

GETNAM Scan off a variable name. 

ICHAR Get the next character from the input file. 


PASS2 OPERATION 
The first part of PASS2 generates the storage for variables, arguments, 
arrays, literals and temporaries by processing the symbol table 
built by PASS1, which is kept in core. The next step is to generate 
the code for subroutine entry and exit including argument pickup and 
restore. After all such prolog code is generated, PASS20 is loaded 
into core, overlaying most of the prolog-generating functions. The 
main loop of the compiler is now entered. This consists simply of 
reading a PASS1 output code from the intermediate file and using this 
number as an index into a jump table. The sections of code entered 
in this way then perform the correct generation of RALF code. 
Example: 

The statement: A=B+C*D 


would produce the following PASS1 output: 
(assuming A,B,C,D are REAL) 


1) PUSH 
>A (symbol table address of A) 

2) PUSH 
>B 

3) PUSH 
+C 

4) PUSH 
>+D 

5) MUL 

6) ADD 

7) STOROP 

8) EOLCOD 


BE ee 


The corresponding operations performed by PASS2 are: 


1) Make a 3-word entry on the stack corresponding to the 
variable A consisting of a pointer to the symbol table 
entry, a word containing the type, and one reserved word. 


L£ 


2) Repeat above for B. 
3) Repeat above for C. 
4) Repeat above for D. 


5) The multiply operator is handled like any of the binary 
operators by the subroutine CODE. This routine is called 
with the address of the multiply skeleton table. The 
top two stack entries are taken as the operands, with 
their types used to index into the skeleton tables. 

(See description of binary operator skeleton tables below.) 
The correct skeleton for this combination is chosen based on 
the where-abouts of each of the operands (AC or memory) 

at the corresponding point in the code which is being 
compiled. There are three possible cases: Memory,AC; 
Memory,Memory; AC,Memory. In this example, both operands 
are in memory so the code generated would be: 


FLDA C 


The CODE subroutine then makes a new stack entry to replace 
the entries for C and D. This entry has a @ in place of 
the symbol table pointer, signifying that the operand is in 
the AC. Other special case operand codes are: 


@ - AC ( Already mentioned) 


1 - 51 Temporaries 


52 - 6% Array reference, the subscript of which is in 
an index register (1-7). 
61 - A variable, the address of which is in base 
location @. 


62 - A variable, the address of which is in base 
location 3. 


63-6777 - Symbol table entry (can be variable or literal). 
7000 - Special temporary 
6) The add operator is handled in the same way as for multiply, 
except that in this case the add skeleton table is used. 
When the correct row is found, the memory,AC case is chosen 


Since the result of C*D is now in the AC. This skeleton 
simply generates: 


FADD B 


The new top of stack entry is a @, since the result is in 
the AC. 


7) ‘The store operation works in a similar manner using a special 
skeleton table to determine whether the value to be stored is 


already in the AC and whether it must be converted from one 
type to another. In this case, no conversion need be performed 
and the code generated is: 

FSTA A 


8) The end of statement has been reached and any necessary 
bookkeeping is performed. 


PASS2 SYMBOL TABLE 

PASS2 modifies the symbol table entries corresponding to variables 

by replacing the first word of the entry with the first character of 
the name, this character being derived from the list in which the name 


is located. 


PASS2 ERROR LIST 

PASS2 creates a list (in field 1) of error codes and line numbers 
corresponding to the errors printed on the Teletype during PASS2. 
This list works downward starting just below the skeleton table area, 
working towards the symbol table area. PASS3 uses this list to 


write out extended error messages on the listing. 


PASS2 SKELETON TABLES 
All binary operators have associated with them a skeleton table 
having 24 entries arranged in 8 rows and 3 columns. The rows 


correspond to the following eight possibilities: 


1) Both operands integer or real. 

2) Both operands complex. 

3) Both operands double precision. 

4) First operand integer or real, second complex. 

5) First operand integer or real, second double precision. 
6) First operand complex, second integer or real. 

7) First operand double precision, second integer or real. 


8) Both operands logical. 


The columns correspond to the following three possibilities: 

1) First operand in memory, second in AC. 

2) Both operands in memory. 

3) First operand in the AC, second in memory. 
Each entry of the skeleton tables is either zero (illegal operator- 
type combination) or points to a code skeleton (minus one). Code 
skeletons are composed of combinations of the following types of 
elements: 


1} OPCODES - If an element has a non-negative value, it is 
taken as the address of a text string for the desired 
opcode. This works since all such text strings are 
stored below location 4@@@ (in field @). In this case, 
the next word of the skeleton is taken as a designator 
for the address field, the possibilities are: 


a. A non-negative values means the address field is a 
literal text string, with the value being the ad- 
dress of the string. (Same restriction as for op- 
code text strings.) 


b. A zero indicates that this instruction should have 
no address field. 


c. A minus one indicates that the address field is the 
operand defined by the three variables ARG1, TYPEl1, 
and BASE1. 


d. A minus two indicates that the address field is the 
operand defined by the three variables ARG2, TYPE2, 
and BASE2. 


2) MODE CHANGE - An element value of minus one means generate 
a STARTF if currently in extended mode. A value of 
minus two means generate a STARTE if currently in single 
mode. 


3) MACRO - Any other negative value is taken as the address 
(minus 3) of a sub-skeleton. This sub-skeleton may 
contain anything except another sub-skeleton reference. 
When the end of the sub-skeleton is encountered, the main 
skeleton is re-entered. 


4) END-OF-SKELETON - A zero indicates the end of the skeleton. 


PASS2 SUBROUTINES 
The following is a list of the major PASS 2 subroutines together 


with a brief functional description. 


ERMSG 


UCODE 


CODE 


INWORD 
FATAL 
ONUMBER 
SAVEAC 


GENCOD 


OPCOD 


OPCODE 


OADDR 


GENSTF 
GENSTE 
OSNUM 
CRLF 
OTAB 
OUTSYM 


GARG 


GARGS 


OUTNAM 
OLABEL 


GETSS 


SKPIRL 


GENCAL 


MUL12 


Output a 2-character error code together with the 
line number on the Teletype; also put the code and 
line number into the error list for PASS3. 


Generate the code for unary operators,given the 
skeleton table address. 


Generate code for binary operators, given the 
skeleton table address. 


Read a word from the PASS1 output file. 

Output a fatal error message and exit to OS/8. 
Output the AC as a 4-digit octal number. 
Generate an FSTA #TMP+XXXX if necessary. 


Generate the code specified by the given code 
skeleton. 


Output a TAB followed by the specified opcode 
field. 


Same as OPCOD, except output a second TAB after the 
opcode field. 


Generate the address field specified by the 
argument. 


Generate STARTF if in E mode. 

Generate STARTE if in F mode. 

Output a statement number preceded by a "#". 
Output a carriage return/line feed. 

Output a TAB. 

Output a text string. 


Pop the top entry of the stack into ARG1, TYPE1, 
and BASE1. 


Pop the top two stack entries into ARG1, TYPE1, 
BASE1 and ARG2, TYPE2, BASE2. 


Output a variable name. 
Output a generated label. 


Find the address of the dimension information 
block given the symbol table address. 


Skip if integer, real, or logical. 


Generate the code for a subroutine call from 
the information contained on the stack. 


Do a 12-bit unsigned multiply. 


OINS Output a literal opcode and address field. 
OCHAR Output a character 


NUMBRO Output a 5-digit octal number. 


PASS3 OPERATION 

PASS3 first initializes the listing header line with the version 
number, date, and page number. It then processes lines, much like 
PASS1, handling continuations and comments and outputs their image 
to the listing file together with the line number. A constant check 
is made on the error message list for line numbers that correspond 
to the current line number, When such a correspondence occurs, the 
error code is used to find the associated detailed error message, 


which is then printed out. 


CHAPTER 2 


THE RALF ASSEMBLER 


RALF and FLAP are essentially the same program, with differences con- 
trolled by the conditional assembly parameter RALF, which must be non- 
zero to assemble RALF, or zero to assemble FLAP. The source may be 
assembied by either PAL8 or FLAP; although FLAP flags one error (a US 
on a FIELD statement), this may safely be ignored. The remainder of 
this chapter applies to RALF only. The following definitions are pre- 
requisite to discussion of the operation of this assembler. 

MODULE The relocatable binary output of an assembly. A module 
is physically an OS/8 file or sub-file in a library, 
and is made up of an external symbol dictionary and 
related text. Logically, it consists of one or more 
program sections and COMMON sections. 

LIBRARY An OS/8 file on a directory device containing a catalog 
and one or more modules as sub-files. Used solely by 
the loader, as a source of modules with which to satisfy 
unresolved symbols in a program being loaded. 

CATALOG A list of entry points defined in modules contained in 


a library, with an indication of the locations of the 
modules which define them. 


EXTERNAL A list of the global symbols defined in and/or used by 
SYMBOL a module. Usually called ESD table. 

DICTIONARY 

TEXT That part of the assembler's binary output which contains 


the binary data to be loaded into memory, along with 
sufficient information for the ioader to associate the 
output with specific memory locations through references 
to the ESD table. 


SECTION A unit of binary data output by the assembler as part 
of a module to be loaded into a contiguous area of 
memory. COMMON sections are a special case in that 
they may be defined with the same name in each of many 
modules. In this case, all the definitions are combined 
to create a single section in memory whose size is that 
of the largest COMMON section with the given name. 
Program sections, the only other type of section, must 
have unique names. Sections are listed in the ESD table 
by name, type and size. 


ITRY POINT An address within a section which is named and defined 
to be global, so that it may be used for the resolution 
of external references in other sections. Entry points 
are listed in the ESD table by name, type and address 
within the section in which they occur. 


EXTERNAL A symbol which is specified at assembly time to be 
SYMBOL defined in another module as an entry point. External 
symbols are listed in the ESD table by name and type. 
A complete program must include entry point names 
equivalent to every external symbol defined in every 
module in the program. There need not, however, be an 
external symbol for every entry point, nor is there any 
limit on the number of modules which may contain external 
symbols referencing one entry point. From a functional 
viewpoint, entry points correspond to tags within a 
program and external symbols correspond to references 
to those tags. Every section is considered to have an 
entry point at location zero of the section. The name 
of this entry point is the section name. 
When RALF is called from the monitor, execution begins at the tag 
BEGIN. Unless entry is via CHAIN, the OS/8 command decoder is called 
to obtain input and output file designations. If entry is by way of 
CHAIN, it is assumed that the command decoder area has already been 
set up by the caller. In either case, it is always assumed that the 
USR is already in core. A check is made to determine that the first 
output file is a directory device file and, if no first output file 


was specified, the default file SYS:FORTRN.RL is set up. 


Default output file extensions are defined if none were specified to 
the command decoder, using .RL for the first output file and .LS for 
the second output file. The first output file is then opened, and the 
handler for the first input file is FETCHed. If /L or /G was specified, 
the loader is looked up on SYS so that chaining will be possible. The 
symbol table, which is loader above 12000 in order to preserve the 

USR, is now moved down to 10000. Finally, the system date word is 
converted to character form and stored in the title buffer. This 
completes the initialization procedure, and control is passed to 


NEWLIN to collect the first line in the buffer. 


At NEXTST, tests are made to determine whether the line just assembled 
needs to be listed, and whether there are any remaining significant 


characters in the line which have not been assembled. If a semicolon 


terminated the statement, the character pointers are bumped to skip 

over it, and control passes to ASMBL to process the next statement on 
the line. If the assembler is currently in a REPEAT line and the 

count is not exhausted, the current line is re-assembled. Otherwise, 

a new line is obtained in the line buffer by collecting input characters 
until a carriage return is found. If the line is longer than 128 
characters, all characters after the 128th are ignored and the LT 


message is printed. The line length is calculated and saved. 


At ASMBL, ASMOF is tested to determine whether the assembly is currently 
inside a conditional. If so, the line is scanned for angle brackets 
but not assembled. If not, and the first character is not a slash, 
leading blanks are thrown away and control passes to LUNAME. If there 
is a name, it is collected. If it is followed by a comma, the symbol 
is looked up in the user symbol table. If the symbol is undefined, it 
is defined as a label. If it was already defined, the current location 
counter is compared with it to check for a possible MD error. Control» 


then returns to ASMBL. 


If the symbol found by LUNAME was followed by an equal sign, it is 
looked up and defined according to the expression to the right of the 
equal sign. If it was followed by a space, either of the characters 
" or #, or the character % and then a space, it is looked up in the 
op-code table. If it is found, control passes to the appropriate 
op-code handler. Otherwise, control is dispatched to GETEXP which 
restores the character pointers saved by LUNAME, processes the rest 


of the line as a single-word expression, and returns to NEXTST for the 


next statement. 


Expressions are processed on a strict left-to-right basis by the 
routine EXPR. A symbol is looked up, and its value is stored in 

WORD1 and WORD2. It is then combined with the accumulated expressions 
in EXPVAL according to the operator in LASTOP. A new operator (if any) 
is then located, and the loop begins again. When no operator is found 
after some symbol, the expression is considered complete and control 
returns to the calling routine. Undefined symbols appearing in an 
expression cause output of a US message, and the value zero is used 

in their place. COMMON and section names in the symbol table have 
special values (namely their lengths), but they always refer to the 
starting location of the sections they define, and their values are 
taken to be zero of the section so named. If GETNAM is not able to 
find a symbol in the expression, three possibilities are checked before 


flagging the expression as invalid: 


1. It may be a number, rather than a symbol. 

2. It may be one of the characters period (representing the 
current value of the location counter) or double quote 
(representing the binary value of the next ASCII character). 


3. The last operator may have been a plus sign in an indexed 
FPP instruction. 


At the end of expression evaluation, the console keyboard flag is 
checked to ensure that the user has not typed CTRL/C to stop the 


assembly. 


There are six expression operator routines, one each for the operations 
add, subtract, AND, OR, multiply and divide. Except for add and 
Subtract, these routines must operate on absolute addresses because 

the loader does not have facilities for non-additive resolution of 


address constants. 


The symbol table is the sole occupant of field 1, except for the OS/8 
field 1 resident. The symbol table is loaded at location 12000 to 
prevent an unnecessary swap of the USR, but moved down, to start at 
location 10000, during initialization. Subsequent calls to the USR 

do require a swap. The symbol table is a set of linked lists, or, 
more properly, two sets; one for user-defined symbols and one for 
op-codes and pseudo-ops. Each set contains a list corresponding to 

t, and each list consists of the symbols 
which start with that same letter. Every time a symbol is encountered 
in the source, the list corresponding to its first letter is searched 
until a match is found, or until the end of the list or a symbol of 
higher alphabetical order is found. In the latter cases, the new 
symbol is inserted into the user symbol table by changing the list 
pointers so that the new symbol appears in the list in correct alpha- 
betical order. The pre-defined symbol table is never changed, because 


the user is not permitted to define op-codes or pseudo-ops. 


A RALF output file of relocatable binary data consists of two parts; 
the ESD table and the text. The ESD table contains all information 
required by LIBRA or the loader, and is generated between the first 
and second passes of assembly. It serves as a partial symbol table 
for the loader (the full symbol table is built up from the ESD tables 
of all the modules in a program) and provides the name, attributes, 
and value of every global symbol used by any module, as well as an 

ESD code by which the symbol may be referred to within the text. 

Every entry in the ESD table is six words long. The first three words 
are the symbol itself, packed in stripped ASCII, with two characters 


per word. The next word contains type information in the following 


format: 


A VALUE OF INDICATES 
0 Last entry in the ESD table. 


ud The symbol is defined as external to this module. 
The value of the symbol must be resolved by a 
symbol of the same name appearing in the ESD 
table of another module. The ESD code which 
follows the type code is the code by which 
references to this symbol will be identified 
in the text. 


2 The symbol is defined as an entry point in this 
module. It is therefore suitable for the 
resolution of external references in other 
modules. The ESD code which follows the type 
word identifies the program section in which 
this entry point appears, and the value of 
the symbol is relative to that section. 

3 The symbol is defined as a COMMON section whose 
size is at least as large as specified by the 
value of the symbol. If several modules contain 
ESD entries referring to COMMON sections with 
the same name, a single COMMON block having the 
size of the largest symbol is allocated for all 
of them. A name consisting of blanks is treated 
in the same manner as any other name. 

4 The symbol is defined as a section of location 
independent (that is, fully word-relocatable) 
code of a size equal to the value of the symbol. 
The ESD code for this section allows text from 
the module to be included in this section, and 
relocated with respect to it. 


5-17 Undefined 


The text portion of a relocatable binary file consists of the binary 
data to be loaded into memory, along with information directing the 
loader on how to modify that data to correct the addresses for program 
relocation. The first word of text is a control word, which is made 
up of a 4-bit type code and an 8-bit indicator. Following the control 
word, and depending on the type code, are a number of data words to 

be loaded as directed by the type code and the indicator. The control 


word type codes are: 


CODE FUNCTION 


0 End of text, if the indicator is zero, or no 
operation otherwise. 
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ee 


Copy the number of words given by the indicator 
from text directly into memory without modifica- 
tion. 


2 Re-origin to the section identified by the 
indicator, with a relative location defined by 
bits 9-23 of the following doubleword. Thus, 
the next two words define a new origin for the 
following text, in the program section identified 
by the indicator. 


3 Relocate the following doubleword bits 9-23 by 
the value of the symbol whose ESD code is 
identified by the indicator. The following 


Ba eee cy Been a Td. ‘ ; i 
aoubieword iS usually a two-word FPP instruction, 


the low-order 15 bits of which are to be relocated 
by the value of the symbol identified by the 
indicator. 


WRITING PDP-8 CODE UNDER OS/8 FORTRAN IV 


RALF contains the normal set of PDP-8 instructions (TAD, DCA, CDF, KSF, 
etc.), however RALF does not allow literals, the PAGE pseudo-op, or 
the use of I to specify indirect addressing. PDP-8 code generated by 
RALF is not relocatable; therefore, operations such as the following 


are illegal: 


EXTERN SWAP /Illegal 
TAD (SWAP /Under 
CDF SWAP / RALF 


The character % appended to the end of a memory reference instruction 


indicates indirect addressing, and the character Z indicates a page 0 


reference: 

CURRENT PAGE PAGE ZERO 
DIRECT INDIRECT DIRECT INDIRECT 
TAD A TADS A TADZ A TADZ3 A 
DCA B DCAZ% B DCAZ B DCAZ% B 


Spaces are not allowed between memory reference instructions and either 
the Zor the & characters. The Z must precede the % when both are used. 


I.e., do not write "DCA%Z". 


Three pseudo-ops have been added to RALF: SECT8, COMMZ, and FIELDI. 


All three define sections of code and are handled in the same manner 
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as SECT; however, these new sections have special meaning for the 

loader. The address pseudo-op (ADDR) which generates a two word re- 
locatable 15 bit address (i.e., JA TAG without use of JA) might prove 
useful in 8-mode routines. The following example demonstrates a way 
in which an 8~mode routine in one RALF module calls an 8-mode routine 


in another module: 


EXTERN SUB 

RIF /Set DF to current 
TAD ACDF /IF for return 
DCA .+1 

0 /CDF X 

TAD KSUB /Make a CIF from 
RTL CLL /Field bits 

RAL 

TAD ACIF 

DCA .+1 

0 /CIF to field 


/Containing SUB 
JMS% KSUB+1 


KSUB, ADDR SUB /Psuedo-op to 
/Generate 15 bit 
/ADDR of subroutine 
/SUB 
ACDF, CDF 
ACLE, CIF 
In general the address pseudo-op can be used to supply an 8-mode 


section with an argument or pointer external to the section. 


FPP and 8-mode code may be intermixed in any RALF section. PDP-8 mode 
routines must be called in FPP mode by either: 

TRAP3 SUB 
or TRAP4 SUB 
A TRAP3 SUB causes FRTS to generate a JMP SUB with interrupts on and 
the FPP hardware (if any) halted. TRAP4 generates a JMS SUB under the 
same conditions. The return from TRAP4 is: 


CDF CIF 0 
JMP% SUB 


The return from TRAP3 is: 


CDF CIF 0 
JMP% RETURN+1 


EXTERN #RETRN 
RETURN, ADDR #RETRN 


Communication between FPP and 8-mode routines is best done at the FPP 
level because of greater flexibility in both addressing and relocation 
in FPP mode. The following routine demonstrates how to pass an argu- 
ment to, and retrieve an argument from, an 8-mode routine: 

EXTERN SUB 


EXTERN SUBIN 
EXTERN SUBOUT 


FLDA xX /Arg for SUB 
FSTA SUBIN 

TRAP4 SUB /Call SUB 
FLDA SUBOUT /Get result 
FSTA Y 


If the 8-mode routine SUB were in the same module as the FPP routine, 
the externs would not be necessary. In practice it is common for FPP 
and 8-mode routines that communicate with one another to be in the 
same section. A number of techniques can be used to pass arguments. 
For example, an FPP routine could move the index registers to an 


8-mode section and pass single precision arguments via ATX. 


Because 8-mode routines are commonly used in conjunction with FPP code 
(generated by the compiler), the 8-mode programmer should be familiar 
with OS/8 FORTRAN IV subroutine calling conventions. The general code 
for a subroutine call is a JSR, followed by a JA around a Tie of 
arguments, followed by a list of pointers to the arguments. The FPP 


code for the statement: 


CALL SUB (X,Y,2Z) 


EXTERN SUB 
JSR SUB 
JA BYARG 
JA x 


The general format of every subroutine obeys the following scheme: 


SECT SUB 
JA #ST /Jump to start of 
/Routine 
TEXT +SUB+ /Needed for 
/Trace back 
RTN, SETX XSUB /Reset SUB's index 
SETB BSUB /And base page 
BSUB, FNOP /Start of base page 
JA ‘ 


ORG BSUB+30 /Restart for SUB 
FNOP:JA RTN 
GOBAK, FNOP:JA . /Return to 
/Calling program 
Location 00000 of the calling routine's base page points to the list 
of arguments, if any, and may be used by the called subroutine provided 
that it is not modified. Location 0003 of the calling routine's base 


page is free for use by the called subroutine. 


Location 0030 of the calling routine's base page contains the address 
where execution is to continue upon exit from the subroutine, so that 
a subroutine should not return from a JSR call via location 0 of the 


calling routine: 


CORRECT INCORRECT 
FLDA 30 FLDA 0 
JAC JAC 


The "non-standard" return allows the calling routine to reset its own 
index registers and base page before continuing in-line execution. 


General initialization code for a subroutine would be: 


SECT SUB 
JA #ST 
BASE 0 


#ST, STARTD /So only 2 words 
/Will be picked up 


FLDA 30 /Get return JA 

FSTA GOBAK /Save it 

FLDA 0 /Get pointer to list 
SETX XSUB /Set SUB's XR 

SETB BSUB /Set SUB's Base 

BASE BSUB 

INDEX XSUB 

FSTA BSUBX /Store pointer 


/Somewhere on Base 


JA GOBAK /Return 

The above code can be optimized for routines that do not require full 
generality. The JA #ST around the base page code is a convenience 
which may be omitted. The three words of text are necessary only for 
error traceback and may also be omitted. If the subroutine is not 
going to call any general subroutines, the SETX and SETB instructions 
at location RTN and the JA RIN at location 0030 are not necessary. If 
the subroutine does not require a base page, the SETB instruction is 
not necessary in subroutine initialization; similar remarks apply to 
index registers. If neither base page nor index registers are modified 


by the subroutine, the return sequence: 


is also legal. In a subroutine call, the JA around the list of argu- 
ments is unnecessary when there are no arguments. A RALF listing of 
a FORTRAN source will provide a good reference of general FPP coding 


conventions. 


In order to generate good 8-mode code, one must be aware of the manner 
in which the loader links and relocates RALF code. The loader handles 
three 8-mode section types: COMMZ, FIELD1, and SECT8. All three 
types of section are forced to begin and end on page boundaries and to 
be a part of level MAIN; 8-mode sections never reside in eueriavd: 


COMMZ and FIELD] sections are forced to reside in field 1; SECT 


sections may be in any field. The first COMMZ section encountered is 
forced to begin at location 10000, thus enabling a page 0 in field l. 
COMMZ sections of the same isms are handled like COMMON sections of 

the same name (i.e., they are combined into one common section). This 
feature allows 8-mode code in different modules to share page 0, pro- 
vided that the modules do not destroy each other's page 0 allocations. 
Suppose two modules were to share page 0, with the first using location 


0-17 and the second using locations 20-37: 


/Module A 
COMMZ SHARE 
Pl, 1 
P2, 2 


KSUBA1, SUBAL 
KSUBA2, SUBA2 


: /Should not go over 
LASTA, -l 7/20 locations 


FIELD1 A 


TADZ Pl 
JMSZ% KSUBAL 


‘ /Module B 
COMMZ SHARE 
ORG .+20 /ORG past module A's 
/Page 0 
P3, 3 
P4, 4 


KSUBB, SUBB 


LASTB =2 
FIELD1 B 


The two COMMZ sections will be put on top of one another, however, 
because of the ORG .+20 in module B, they will effectively reside back 
to back. When the image is loaded, the COMMZ sections will look as 


follows: 


LOC CONTENTS 


1 0000 1 
0001 2 
2 SUBAI1] 
3 SUBA2 
1 0017 = /LASTA 
1 0020 3 
21 4 
22 SUBB 
a 2 /LASTB 


If module A is to reference module B's page 0, the procedure is: 


P3=20 
TADZ P3 


Alternately, a duplicate of the source code for COMMZ SHARE may be 
included in module B. Modules that are using the same COMMZ section 
must be aware of how it is divided up. Aithough COMMZ SHARE takes 
only 40 locations, the loader allocates a full 200 locations to it. 
All 8-mode section core allocations are always rounded up so that they 
terminate on a page boundary. If COMMZ sections of different names 
exist, they are accepted by the loader and inserted into field 1, but 
only one COMMZ is the real page 0. In general, it is unwise to have 


more than 1 COMMZ section name. 


FIELD1 sections are identical to COMMZ sections in most respects. 
Memory allocation for FIELD1 sections is assigned after COMMZ sections, 
however, and FIELD] sections are combined with FORTRAN COMMON sections 
of the same name as well as other FIELD1 sections of the same name. 

The first difference ensures that COMMZ will be allocated page 0 
storage even in the presence of FIELD1 sections. The second allows 
PDP-8 code to be loaded into COMMON, making it possible to load ini- 
tialization code into data buffers. Two FIELD1 sections with the 


same name may be combined in the same manner as two COMMZ, sections. 


The primary purpose of COMMZ is to provide a PDP-8 page 0; the primary 
purpose of FIELD] is to ensure that 8-mode code will be loaded into 
field 1 and that generating CIF CDF instructions in-line is not neces- 
sary. SECT8 sections may not be combined in the manner of a COMMON 


and are not ensured of being placed into field l. 


An 8-mode section does not have to be less than a page in length; 
however, the programmer should be aware that a SECT8 section which 
exceeds one page may be loaded across a field boundary and could 
thereby produce disastrous results at execution time. For this reason, 
it is generally unwise to cross pages in SECT8 code. This situation 
will never occur on an 8K configuration. If the total amount of COMMZ 
and FIELD1 code exceeds 4K, the loader generates an OVER CORE message, 
The loader generates an MS error for any of the following: 


1. A COMMZ section name is identical to some entry point or some 
non-COMMZ section name. 


2. A FIELD1 section name is identical to some entry point or a 
SECT, SECT8 or COMMZ section name. 


3. A SECT8 section name is identical to an entry point or some 
other section name. 


COMMZ sections, like FORTRAN COMMONS, are never entered in the library 


catalog. 


For users who intend to write 8-mode code that will execute in con- 
junction with certain 8-mode library routines, the layout of PDP-8 


FIELD1 #PAGE 0 is: 


LOCATION USE 
0-1 Temps for any non-interrupt time routine. 
2-13 User locations. 
14-157 System locations. 

160-177 User locations. 


1. Do not define any COMMZ sections other than the system COMMZ 
which is #PAGEO. 


2. If the system page 0 is desired, it will be pulled in from 
the library if EXTERN #DISP appears in the code. 


3. Do not use any part of page 0 reserved for the system. 


Special purpose PDP-8 mode subroutines may be written to perform idle 


jobs (refreshing a scope, 


checking sense lines) or to handle specific 


interrupts not serviced by FRTS. 


The run-time system enters idle loops while waiting for the FPP to 


complete a task or for an I/O job to complete. It is possible to 


effect a JMS to a user routine during the idle loop. 


RTS contains a set of instructions such as: 


#IDLE, JMP .+4 


0 
CDF CIF 
JMS I .-2 


This sequence of instructions must be revised if an IDLE routine is to 


be called. 


The location #IDLE must be changed to a SKP (7410). #IDLE+1 must be 


set to the address of the 

to a CDF CIF to the field 

routine that is called at 
CALL SETIDL 


where SETIDL is a routine 
SECT8 SETIDL 


JA #RET 

TEXT +SETIDL+ 
SXR, SETX XR 

SETB BP 
BP, 0.0 
XR, 0.0 


ORG 10*3+BP 


routine to be called. #IDLE+2 must be set 
of the routine. This setup can be done in a 


the beginning of MAIN. For example: 


such as: 


/Must be an 8~mode section 


/Traceback information 


FNOP /For trace back 


JA SXR 
0 
RET, JA. /Return address 
#RET, STARTD /Set up 
FLDA 10*3 /Return address 
FSTA RET 
SETB BP /Just for traceback 
TRAP4 SET8 /Go to the 8 mode 
/Routine set 8 
STARTF 
JA RET /Return to main 
SET8, 0 
TAD IDLAD /Field of idle 
CLL RTL 
RAL /Move to 
/Bits 6-8 
TAD SCDF /CDF to #IDLE 
DCA .+3 
TAD IDLAD+1 /Address of #IDLE 
DCA IDPTR 
0 /CDF goes here 
TAD S7410 /SKP 
DCA% IDPTR /Store at #IDLE 
TAD JOB+1 /Address of IDLE top routine 
ISZ IDPTR 
DCA IDPTR /Store a #IDLE+1 
TAD JOB /Field of routine 
CLL RTL 
RAL /Position 
TAD SFIELD 
ISZ IDPTR 
DCA% IDPTR /Store at #IDLE+2 
CDF CIF /Set to field 0 
JMP% SET8 /Return to instruction 


/Following "TRAP4 SET8" 
EXTERN #IDLE 


IDLAD, ADDR #IDLE /15 bit address of IDLE 

JOB, ADDR DOIT /15 bit address of IDLE 
/Routine "DOIT" 

SCDF, 6201 /CDF 

SFIEL, 6203 /CDF CIF 

IDPTR, 0 

$7410, 7410 /Skip 


/The following routine performs the 
/IDLE task 
/Executed during IDLE loops 


DOIT, 0 
;. /Perform task 
CDF CIF 0 /Back to field 0 
JMP% DOIT /And back 


If the subroutine is checking for an illegal argument, an argu- 
ment error message with traceback can be included in the subroutine 
by adding two lines somewhere on the base page: 


EXTERN #ARGER 
EXAMER, TRAP4 #ARGER 


When the error is detected in the program, effect a jump to the 
TRAP4 instruction. For example, 


FLDAS EXTMP1 


JEQ EXAMER /A value of 0 is illegal 
or 

FLDA EXTMP1 

FNEG 

FADD EXTMP2 

JLT EXAMER /The value in EXTMP1 must be 

/greater than that in EXTMP2 

Some points to note in the above example 


1. Using a # as the first character in the name of the start 
of the program assumes that the name is not called from 
the FORTRAN level. This is because # is an illegal FORTRAN 
keyboard character. 


2. If index registers 3-5 are not used by the subroutine, the 
space from XR3 to the ORG statement can be used for temporary 
storage, if needed. 


3. The arguments passed from the FORTRAN level do not have to 
be picked up all at once at the start of the calculation 
(3-word) portion of the program . They can be picked up as 
required during the program, can be saved in temporary space, 
or accessed indirectly each time required, as best suits 
the subroutine. 


If a call to this routine such as Z=EXAMPL(A,B,C,D) were encountered 


by the compiler, it would generate the following call to the routine: 


JSR EXAMPL /go to the routine 
JA .+10 /jump around arguments 
JAA /pointer to lst argument 
JA B /pointer to 2nd argument 
JA C /pointer to 3rd argument 
JA D /pointer to 4th argument 
The AMOD routine is listed below to illustrate an application 


of the formal calling sequence. It also includes an error condi- 
tion check and picks up two arguments. When called from FORTRAN, the 


code is AMOD(X,Y). 


~ NNN NON 
i> 
'o 
to 


SUBROUTINE AMODC(X,Y) 
SECT AMOD /SECTION NAMECREAL NUMBERS) 
ENTRY MOD ENTRY POINT NAMECINTEGERS) 
JA #AMOD /7JUMP TO START OF ROUTINE 


TEXT +AMOD + 
AMODXR, SETX § XRAMOD 
SETB | BPAMOD 
BPAMOD, F 8.0 
XRAMOD, F 0.0 
AMODX, F 8.0 


/FOR ERROR TRACE BACK 
/SET INDEX REGISTERS 
/ASSIGN BASE PAGE 
/BASE PAGE 

/INDEX REGS. 

/TEMP STORAGE 


ORG 10*3+BPAMOD /RETURN SEQUENCE 
FNOP 
JA AMODXR 
2 
AMDRTN, JA ; /EXIT 
EXTERN #ARGER 
AMODER, TRAP4  #ARGER /PRINT AN ERROR MESSAGE 
FCLA /EXIT WITH FAC= 
JA AMDRIN 
BASE g /STAY ON CALLER'S BASE PG 
/LONG ENOUGH TO GET RETURN ADDRESS 
MOD, /START OF INTEGER ROUTINE SAME AS 


#AMOD, STARTD /START OF REAL NUM. ROUTINE 


FLDA 10*3S /GET RETURN JUMP 
FSTA AMDRIN /SAVE IN THIS PROGRAM 
FLDA @ /GET POINTER TO PASSED ARG 


SETX XRAMOD 
SETB BPAMOD 
BASE BPAMO)D 
LDX 1,1 

FSTA BPAMOD 


/ASSIGN MOD"S INDEX REGS 
AND ITS BASE PAGE 


FLDAZ BPAMOD,1 /ADDR OF X 
FSTA AMODX 
FLDAZ BPAMOD,1+ /ADDR OF Y 
FSTA BPAMOD 
STARTF 
FLDAZ BPAMOD /GET Y 
JEQ AMODER /Y=@ IS ERROR 
JGT +3 
FNEG /ABS VALUE 
FSTA BPAMOD 
FLDAZ AMODX /GET X 
JGT et5 
FNEG /ABS VALUE 
LDX Q,1 /NOTE SIGN 
FSTA AMODX /SAV IN A TEMPORARY 
FDIV BPAMOD /DIVIDE BY Y 
JAL AMODER /TOO BIG. 
ALN g /FIX IT UP NOw. 
FNORM 
FMUL BPAMOD /MULITPLY IT. 
FNEG /NEGATE IT. 
FADD AMODX 7ZAND ADD IN X. 
JXN AM,1 /CHECK SIGN 
FNEG 

AM, JA AMDRTN /DONE 
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RTS has its own interrupt skip chain in which all on-line device flags 
are checked and serviced. This chain may be extended to handle 

special interrupts. The external tag #INT marks the first of three 
locations on RTS which have to be modified to effect a JMS to the 
user's special interrupt handler. The three locations must be set up 
in exactly the same manner as that used to set up #IDLE, #IDLE1, #IDLE2 
as described above. All the same conventions hold. Refer also to the 


ary subroutines ONQI and ONOQB. 


Three pseudo-ops have been added to RALF to help the loader determine 
core allocation. Each is a more definitive case of the SECT pseudo-op 
and defines a chunk of code, thereby providing more control for the 


user. They are: 


SECT8 - section starts at a page boundary 
FIELDI - section starts at a page boundary and is in field i 
COMMZ - section starts at page 0 of field l 


If there is more than one SECT8 section in a module, those sections 
are not necessarily loaded in contiguous core. The loader considers 
core to be in two chunks - one block in field 0, and all of field l 


and above. 


If there is more than one COMMZ pseudo-op in a module, they are stacked 
one behind the other, but there is no way of specifying which one 
starts at absolute location 0 of field 1. COMMZ sections are 


allocated by the loader before FIELD1 sections. 


Modules can share a COMMZ section in the same way that FORTRAN COMMON 
sections can be shared. FIELD1 sections can also be shared by using 


the same FIELD1 section name in each moduie. 


The first occurrence of a section name defines that section. For 


example, 


SECT8 PARTA 


SECT8 PARTB 


SECT8 PARTA 
The second mention of PARTA in the same module continues the source 
where the first mention of PARTA ended at execution time. (There is 


a location counter for each section.) 


To save core, a RALF FIELD] section and FORTRAN COMMON section of the 
same name are mapped on top of each other, being allocated the length 
of the longer and the same absolute address by the loader. This 
feature is useful for initialization (once-only) code, which can later 
be overlayed by a data area. Thus, the occurrence of FIELD1 AREA1 in 
the RALF module and COMMON AREAI1 in the FORTRAN program causes AREAI1 
to start the same location (in field 1) and have a length of at least 
200 locations (depending on the length of the RALF FIELD1 section or 


of the COMMON section in the FORTRAN). 


If the subroutine is longer than one page and values are to be passed 
across page boundaries, the address pseudo-op, ADDR, is required. 
The format is: 
AVAR1, ADDR VAR1 
This generates a two-word reference to the proper location on another 


page, here VAR1. For example, to pass a value to VARI, possible code 


is: 
00124 1244 TAD VAR2 /Value on this page 
00125 3757 DCA% AVAR1+1 /Pass through 12-bit 
5 /location 
00156 0000 AVAR1,ADDR VAR1 /Field and 
00157 0322 /location of VARI 


Any reference to an absolute address can be effected by the ADDR 


pseudo-op. 


If it is doubtful that the effective address is in the current data 
field, it is necessary to create a CDF instruction to the proper field. 


In the above example, suitable code to add to specify the data field 


is: 
TAD AVARL /Get field bits 
RTL /Rotate to bits 6-8 
RAL 
TAD (6201 /Add a CDF 
DCA .+1 /Deposit in line 
0 /Execute CDFn 


If the subroutine includes an off-page reference to another RALF 
module (e.g., in FORLIB), it can be addressed by using an EXTERN 
with an ADDR pseudo-op. For example, in the display program, a ref- 


erence to the non-interrupt task subroutine ONQB is coded as 


EXTERN ONQB 
ONQBX, ADDR ONQB 
and is called by 
JMS$% ONQBX+1 


The next instruction in the program is ADDR DISPLY so that DISPLY will 
be added to the background list. Execution from ONQB returns after 


the ADDR pseudo-op,. 


It may be desirable to salvage the first (field) word allocated by 
ADDR pseudo-ops. If the address requires only twelve bits for proper 
execution, code such as 


TMP, TMP,ADDR X 
ARG,ADDR X or ARG= .-l 


permits TMP to be used for temporary storage because ARG+l in the left 
hand example or just ARG in the right hand example defines the 12-bit 


address. 


RALF does not recognize LINC instruction or PDP-8 laboratory device 
instructions. Such instructions can be included in the subroutine 


by defining them by equate statements in the program. 


For example, adding the statements: 


PDP = 2 
LINC = 6141 
DIS = 140 


takes care of all instructions for coding the PDP-12 display subroutine. 


When writing a routine that is going to be longer than a page, it can 
be useful to have a non-fixed origin in order not to waste core and to 
facilitate modification of the code. A statement such as 
IFPOS .-SECNAM&177-K<ORG .-SECNAM&7600+200+SECNAM> 

will start a new page only if the value [current location less section 
name] is greater than some K (start of section has a relative value of 
0) where K<177 and is the relative location on the current page before 
which a new page should be started. The ORG statement includes an AND 
mask of 7600 to preserve the current page. When added to 200 for the 


next page and the section name, the new origin is set. 


When calculating directly in a module, the following rules apply to 
relative and absolute values. 

relative - relative = absolute 

absolute + relative = relative 


OR (!), AND (&) and ADD (+) of relative symbols 
generate the RALF error message RE. 


When passing arguments (single precision) from FPP code to PDP code, 


using the index registers is very efficient. For example, 


FLDAS ARG1 /Get argument in FPP mode 
SETX MODE8 /Change index registers so XRO is 
/At MODE8 
ATX MODE8 /Save argument 
TRAP4 SUB8 /Go to PDP-8 routine 
SUB8, 0 /PDP-8 routine 
TAD MODE8 /Get argument 
MODE8, 0 /Index registers set here 


CHAPTER 3 


THE FORTRAN IV LOADER 


The FORTRAN IV loader accepts a set of (up to 128) RALF modules as 
input, and links the modules, along with any necessary library 
components, to form a loader image file that may be read into memory 
and executed by the run-time system. The main task accomplished by 
the loader is program relocation, achieved by replacing the rela- 
tive starting address of every section with an absolute core address, 
Absolute addresses are also assigned to all entry points, all 


relocatable binary text, and the externs. 


The loader executes in three passes. Pass 0 begins by determining 
how much memory is available on the running hardware configuration, 
and then constructs tables from the OS/8 command decoder input for 


use by pass 1 and pass 2, 


Pass 1 reads the relocatable binary input and creates the loader 
symbol table. The length of each input module is computed and 
stored, along with the relative values of entry points defined within 
the input modules. When an undefined symbol is encountered, pass l 
searches the catalog of the FORTRAN IV library specified to pass 0, 
or FORLIB.RL if no other library was explicitly specified, and loads 


the library routine corresponding to the undefined symbol. 


Pass 1 also allocates absolute core addresses to all modules and, 
through them, to all symbols. Pass 1 execution concludes by 
computing the lengths of all overlay levels defined for the current 
FORTRAN IV job. Trap vectors are also set up at this time, and 


the tables required for pass 2 loading are initialized. 


Pass 2 concludes loader execution by creating a loader image file 


from the relocated binary input and symbol values processed by pass l. 


sa 


LOADER PASS @ (FILE COLLECTION) 


00000 OS/8 Command Decoder FIELD 9 


02000 Loader Pass 1 and 
Pass 2 


04600 Core measuring routine 
and scratch area to 
save 00000-02000 
during CD calls 


06600 


Unused 


07600 OS/8 Field 9 resident 
10000 OS/8 User Service Routine FIELD 1 


12000 Symbol table, loader map 
titles 

12400 

13200 

14000 initialization 


16000 Module count and 
module tables 


17000 Library catalog header 
read into this block 


17600 OS/8 Field 1 resident 


Pass 2 also produces the loader symbol map, if requested, and chains 


to the run-time system if /G was specified. 


Pass 0 contains very few subroutines. The routine CORDSW checks for 
the presence of /U, /C or /O option specifications, as supplied to 
the command decoder, and processes these options if necessary. A 
routine called UPDMOD is called when input to each overlay has been 


concluded, to update the module counts in the module count table. 


in, 


LOADER PASS 1 (SYMBOL RESOLUTION) 


00000 Pass 1 and Pass 2 FIELD 9 
utilit outines 
01400 
02000 
03200 
04000 Inter-pass code allocates 
storage, builds and writes 
Loader Image Header Block. 
04600 | Library catalog iocads 
here in 8K. Unused in 
12K or more. 
07200 Input device handlers 
07600 OS/8 Field @ resident 
10000 | ESD table i 
11400 | | 
12000 | Symbol table | 
15400 Overlay length table 
16000 Module count and module 
tables (MCTTBL, MODTBL) 
17200 Loader header 
17400 ESD reference page 
17600 OS/8 Field 1 resident 
20000 Library catalog loads here |FIELD 2 
in 12K or more. 
25000 


12K or more and BATCH 


is running 
a 


OS/8 BATCH processor if | 


CORMOV is a general core-moving subroutine, called by the instruction 


sequence: JMS CORMOV 


CDF FROMFIELD 
FROMADDR - 1 
CDF TOFIELD 
TOADDR - 1 

- COUNT 


while ERROR is the local error processing routine, called with a 


pointer to the appropriate error message in the accumulator. 


The major pass 1 and pass 2 subroutines, described below, operate on 


the loader internal tables, whose format is presented later in this 


00000 


01400 
02000 
03200 


05200 


07200 
07600 
10000 


12000 


15400 
16000 


17200 


17400 
17600 
20000 
22000 
24000 
26000 
30000 


LOADER PASS 2 (LOADER IMAGE BUILDER) 


Utility routines: Symbol table FIELD @ 
look-up, TTY message handler, 

OS/8 block I/O, MCTTBL 

processor. 


Routine to print symbol map. 


Binary buffer #1 


Binary buffer #2 


I/O device handlers _ 
OS/8 Field 0 resident 


RALF module text loads FIELD 1 
here if 8K. 
Symbol table 


| Overlay length table 
MCTTBL and MODTBL 


Binary section table and 
binary buffer (LDBUFS) table 


ESD reference page 
OS/8 Field 1 resident 


Binary buffer #3, if >8K FIELD 2 
Binary buffer #4, if >8K 
Binary buffer #5, if >12K 


| Unused 


RALF module text loads FIELD 3 
here if >12K 


symbol map 
output buffer 


chapter. The subroutines are presented in approximately the order 


that they occur in the source listing. 


SETBPT 


TTYHAN 


Sets words BPTR and BPT2 to contain AC and AC+l, 
respectively. 


Subroutine to unpack and print a TEXT message on the 
console terminal. TTYHAN is called by: 


CDF CURRENT 
CIF -9 

JMS TTYHAN 
CDF MSGFIELD 
MSG 


RTNOS8 


IOHAN 


ADVOVR 


SYMMAP 


Prints a fatal error message and then returns to the 
OS/8 monitor. A pointer to the message must follow 
the JMS RTNOS8. 


Used to execute all I/O under OS/8. The calling 
sequence is: 


TAD (ACARG /Optional 
CDF CURRENT 

CIF 0 

JMS IOHAN 

ADDR 

ARGi 

ARG2 

ARG2 


£aarVy 


where ARG1, ARG2 and ARG3 are standard OS/8 device 
handler arguments and ADDR points to a three-word 
block in field 1 which contains the OS/8 unit number 
in word 1, the file length in word 2, and the starting 
block number in word 3. 


If ACARG is zero, the indicated I/O operation is 
executed after the handler has been FETCHed, if 
necessary. If ACARG=n (greater than zero), the 
handler for OS/8 unit n is FETCHed, no I/O is done, 
and the four arguments that conclude the calling 
sequence are not needed. 


Called to initialize the loader to accept a new input 
module. ADVOVR determines whether a new overlay or 
level is being started by accessing the module count 
table. If so, it sets various pointers and internal 
counters accordingly, rounds the previous overlay to 
terminate on a 200 word boundary, and updates the 
length of the previous level, if necessary, as the 
maximum of its constituent overlay lengths. 

Called by ADVOVR when the next input module will he 
the first module in a new overlay. 

Initializes the pointers and counters used by ADVOVR 
SETCNT is called once at the beginning of each pass. 


Executes a symbol look-up in the loader symbol table, 
LOOK is called by: 


TAD (Pointer to symbol name in 
RALF ESD format 
JMS LOOK 
RETURN here if not found 
RETURN here if found 
GPTR points to word following entry name 


If the symbol is not found, it is inserted into the 
loader symbol table and GPTR is set to point to the 


word following the symbol name. 


Produces the symbol map. 


3-5 


PUTSYM 


FIT 


DO8S, FIT8S 


SETREF 


BLDTV 


NEWORG 


NEWBB 


MERGE 


GETCTL 


PUTBIN 


TXTSCN 


Enters an ESD symbol in the loader symbol table, 

PUTSYM calls LOOK to determine whether the symbol 

is already present in the symbol table and, if so, 
verifies that the symbol is not multiply defined. 
Otherwise, it copies the ESD data words into the symbol 
table entry, updates the length of the current overlay 
by the length associated with the symbol, and links 

the symbol to its parent symbol, if any. 


Fits a section into core by subtracting its length 
from the amount of core still available and substi- 
tuting its load address for its length in the symbol 
table, 


Fits an 8-mode section into core by calling FIT and 
then checking for field 1 overflow. 


Extracts data from the ESD table of the current module 
and initializes the ESD reference page at 17400. 


Builds the transfer vector. A transfer vector entry 
is created for each subroutine in an overlay. This 
entry provides the information that the run-time 
system will require in order to load the overlay 
containing the referenced subroutine. 


Called whenever an origin is found in an input module, 
to map the location referenced by the origin into a 
block of the loader image file and an address within 
that. block. 


Called whenever a new binary buffer is needed during 
loader image file construction. NEWBB scans a list 
of available buffers and dumps the content of the 
least recently accessed buffer to free up space for 
new data. 


Relocates an input word pair and outputs it to the 
loader image file. 


Gets a control byte from the input module and incre- 
ments its return address by the content of the control 
byte. 


Inserts words, sequentially, into the current binary 
buffer. When the buffer is full, PUTBIN calls 

NEWBB to execute output to the loader image file and 
supply a new buffer. 


Called once for each input module. MTXTSCN reads and 


relocates an entire input module, executing calls to 
MERGE, PUTBIN and NEWORG as needed. 


376 


SYMBOL TABLE 


The loader symbol table begins at location 12000 and contains room 
for 26 (decimal) permanent system symbol entries and 218 (decimal) 
user entries. Each entry is 7 words long, and provides the name and 
definition of a symbol. The table is organized in buckets according 
to the first character of the symbol, which must be A to Z, #, or 
blank (for blank COMMON). The tabie of bucket pointers begins at 
location 12000 with the pointer to bucket A, and consists of one word 
per bucket. This word contains a value of zero, if there are no 
symbols in the corresponding bucket, or else the address of the first 


symbol in the bucket. 


Symbols within a bucket are arranged in alphabetical order, with each 
symbol entry pointing to the following entry, and the last entry 
pointing to zero. Thus, the symbol table appears as a set of threaded 


lists in core. The format of a symbol table entry is: 


Pas 
si 
M 
¢ 
KF 
E 
te 


i=bit “trap 

vector flag during 
pass 1. Error 
flag during pass 2. 


4-bit type code 


O- undefined 
l- entry point 
2- extern 

3- common sect 


4- program sect 
td 'S- multiple entry pone 


et ae ee ner aL 


3-bit | A-bit 
level | overlay 
# | 4 
9-bit pointer to 
parent symbol during 
pass 1 (zero if none). Ss \6- multiple sect 
Trap vector displace- |\7- SECT8 sect 


iment during pass 2. | | L0-COMMZ 
(1 1-FIELD1L 


mas 112 to 17- undefined 
(Length during pass 1) | 


Several special symbols are created by the loader. The symbol #YLVLn, 
where n is an octal digit, describes overlay level n. This symbol 
table entry contains the length of level n during pass 1 and the 


starting address of level n during pass 2. 


The symbol #YTRAP describes the trap vector, a method by which the 
run-time system controls automatic overlaying of user subroutines. 
Four words are allocated in the trap vector for each entry point in 
every overlay except overlay #MAIN. The symbol table entry for #YTRAP 
contains the accumulated length of the trap vector during pass 1 and 


the trap vector starting address during pass 2. 
ESD CORRESPONDENCE TABLE (ESDPG) 


The ESD correspondence table begins at location 17400 and contains 
128 (decimal) l-word entries. This table establishes the corre- 
spondence between the local ESD reference numbers used to reference 
a symbol inside a RALF module, and the address of that symbol in the 
loader symbol table. The rte entry in the ESD correspondence table 


points to the address of ESD symbol n. 


BINARY BUFFER TABLE (LDBUFS) 


The binary buffer table begins at location 17247 and contains from 
two to ten entries, depending upon the amount of memory available. 
Each entry is 4 words in length. The binary buffers function as 
windows into the loader image file, through which the loaded program 
is written onto mass storage. Each binary buffer is 8 pages 

(4 OS/8 blocks) in length. The loader tries to minimize the amount 
of "window turning" necessary to buffer the binary data by keeping a 


record of the last time each buffer was referenced. In this way, 


when the content of a binary buffer must be dumped to make room for 
new data, the loader empties that buffer which was least recently 


used. 
In addition, program loading is overlay oriented such that only one 
overlay is loaded at a time and while any specific overlay is being 


loaded, only origins inside that overlay are legal. 


The format of a binary buffer table entry is: 


| Pointer to the binary 
buffer of "next earliest 

| reference", 1.e., the youngest 

buffer older than this - 

buffer. Contains zero if 

this buffer is oldest. 

[ee 

| Loader image block ¢. 

Contains zero if buffer 

has not been used. 


WORD 1 


WORD 2 


Blocks left in current 
overlay. If <4, only 
part of buffer will 
be dumped. 


WORD 3 


WORD 4 


The number of binary buffers used varies with the amount of memory 


available as follows: 


MEMORY NO. OF 
AVAIL BUFFERS 


SIE SIERRA 
8K 2 

12K 4 

16K 5 

20K 7 

24K 10 (decimal) 

28K 10 (decimal) 

32K | 10 (decimal) 


BINARY SECTION TABLE 


The binary section table overlays the loader image header block 
(described under FRTS) after the latter has been written into the 
loader image file at the beginning of pass 2. Thus, the binary 
section table begins at location 17200 and contains eight 4-word 
entries. Each entry relates the core origin of one of the eight 
overlay levels to that level's position in the loader image file. 


The format of a binary section table entry is: 


Unused 
WORD 1 
Address of level WORD 2 
Relative block # WORD 3 
Length (in blocks) WORD 4 


OVERLAY TABLE (OVLTBL) 


The overlay table begins at location 15435 and contains room for 
113 (decimal) 2-word entries. There is one entry for each overlay 
defined, including overlay MAIN, with each entry designating the 
length in words, of the corresponding overlay. The format of an 


overlay table entry is: 


OVLTBL Negated to indicate 
last table entry 
LEVEL MAIN 


LEVEL 1 OVERLAY 1 le 
HIGH-order bits 
of length 


: WORD 1 

| LEVEL m OVERLAY n-1 i) —4 | row-order bits | 
LEVEL m OVERLAY n of length WORD 2 
| OVLTBL format | individual entry (2 words) 


MODULE DESCRIPTOR TABLE (MODTBL) 


The module descriptor table begins at location 16172 and contains 


room for 172 (decimal) 3-word entries. Each entry provides the in- 


formation 


needed to locate an input module. The first MODTBL entry 


corresponds to the library file to be used in building the current 


loader image. Successive entries correspond t 


any given 


O 
bt 
3 
0) 
¢3 
(t 
3 
Oo 
Qu 
SS 
fj 
wD 
iv) 
my 
He] 
Qu 


the order that the modules were specified by the user, 
ascending order by level, and ascending by overlay within 


level.) At the end of pass 1, entries corresponding to 


individual library modules are appended to the end of the table, 


even though the library modules load into level MAIN. The table 


format is: 


MODTBL 


$$ 
FORLIB.RL or user- 


specified library 


Level MAIN module #1 


Level MAIN module #2 


OS/8 I/O unit # 


File length (positive) 


Level MAIN module #3 || |Starting block # 


OO NN pent 
Level MAIN module n MODTBL format of 


| Level 1 Overlay 1 module #1 individual entry (3 words) 
Level 1 Overlay 1 module #2 


OT a eR a yt 
eee’? eaeecoan~-_~—rrmamRr—gr|’[. 


| Level 1 Overlay 1 module #n 
| Level 1 Overlay 2 module #1 


NN tet a 


Level m Overlay n module #p 


Library moduie #i 
| Library module #2 | 


a a 


MODTBL format 


MODULE COUNT TABLE (MCTTBL) 


The module count table begins at location 16000 and contains room for 
122 (decimal) l-word entries that give the (two's complement) module 


count for each overlay level. The table format is: 


MCTTBL 


LEVEL MAIN | l-word ENTRIES 
pg 


LEVEL 1 OVERLAY 1 
LEVEL 1 OVERLAY 2 


LEVEL 1 OVERLAY 3 


LEVEL 1 OVERLAY n 


LEVEL 2 OVERLAY 1 
LEVEL 2 OVERLAY 2 


nN gs CE AN a Ta nN, 
LEVEL 2 OVERLAY n 


LEVEL 3 OVERLAY 1 


If an overlay or level is not defined for a specific program, there 


is no module count table entry corresponding to that overlay or level. 


The loader image file, produced by the loader and read as input by the 
run-time system, consists of a header block followed by a binary 


image of each level defined in the FORTRAN IV job. 


HEADER | LEVEL LEVEL 
BLOCK | MAIN n 


The loader image file header block contains information in the 


following format: 


LOCATION CONTENTS 

0 2 -- Identifies the file as a loader image file. 

1-2 Initial SWAP arguments to load level MAIN, 

3-4 Highest address used by core load, including overlays 


but not including OS/8 device handlers. 


5 Loader version number. 
6 Double-precision flag. 
7-46 User overlay information table containing one 4-word 


entry per overlay level (the level MAIN entry is 
ignored) in the following format: 


Unused until SWAP time. Must : WORD 1 
be positive or zerc, 

Load address >| Page Bits 4-5 Bits 9-11 
bits unused unused 


Block number of this level, WORD 3 
relative to header block. 


Length of overlays in this level, WORD 4 
in blocks, 


WORD 2 


CHAPTER 4 


THE FORTRAN IV RUN-TIME SYSTEM 


The FORTRAN IV run-time system supervises execution of a FORTRAN 
job and provides an I/O interface between the running program and 
the OS/8 operating system. FRTS includes its own loader, which 
iot be confused with LOAD, the system loader. It executes 
with only one overlay, used to restore the resident monitor and 
effect program termination. The run-time system was designed to 
permit convenient modification or enhancement, and it is well docu- 


mented in the assembly language source, available from the Software 


Distribution Center, which includes extensive comments. 


One of the most valuable modifications to FRTS provides for the 
inclusion of background (or idle) jobs. When FORTRAN is waiting for 
I/O operations or the FPP to complete execution, the PDP-8 or PDP-12 
processor is sitting in an idle loop. An idle job may be executed 

by the PDP-8 or PDP-12 CPU during this time, perhaps for the purpose 
of refreshing a CRT display, for example, or monitoring a controlled 
process. To indicate such a job, the idle wait loop must be modified 
to include a reference to the user's PDP-8 routing. The routine 


#IDLE in FRTS must be changed as part of the user's subroutine from 


#IDLE, JMP .+4 to #IDLE, SKP 
0 ADDUSR 
CDF “CLF FLDUSR 
JMS I .-2 JMS I .-2 


Devices issuing interrupts may be added to the interrupt skip chain 
so that FORTRAN checks the user's device as well as system devices. 
The original code is: 


#iINT, JMP .+4 


and must be changed, as above, to: 
#INT, SKP 
ADDUSR 
FLDUSR 
JMS I .-2 
In both cases, ADDUSR should be the address of the user's routine, and 


FLDUSR should be the memory field of the user's routine, 


The idle job is initiated by the subroutine HANG in the run-time 
system. Hang should only be called when the FORTRAN program must 
wait for an I/O device flag. The calling sequence is: 


EXTERN #HANG 


IOF /Important. 

CDF n /Where n is current field. 
CIF 0 

JMS% HANG+1 

ADDRSS 


/Return here with interrupts OFF 
/When device flag is raised. 


HANG, ADDR #HANG 

The word ADDRSS must point to a location in page 400 of the run-time 
system which must normally contain a JMP DISMIS. Three such locations 
have Heen provided for the user at #DISMS, #DISMS+1, and #DISMS+2, 

The selected location must be the location via which the interrupt 
caused by the desired flag is dismissed. No two flag routines should 
use the same dismiss location. The following program example illus- 
trates these calling conventions. This routine may be used to drive 


a Teletype terminal via the PT08 option. 


EXTERN #ONQI 
EXTERN #DISMS 
FIELD! GETCH /JMS GETCH GETS A CHAR 
) /GETCH RUNS IN FIELD 1 ONLY 
ISZ FIRST 
JMP NOTFST 
JMS%Z ONQI+I 
KSF1 
ADDR KSFSUB 
TAD DISMIS+1 /SET UP TO CALL HANG 
DCA HNGLOC 
NOTFST, IOF 
TAD INCHR 
SZA CLA 
JMP GOT 
CIF g 
JMS%Z HANG+! /NO CHAR READY: HANG 
HNGLOC, @ 
/HANG RETURNS W/ 10F 
GOT1, TAD INCHR 
DCA FIRST 
DCA INCHR 
TAD FIRST 
ION 
JMP% GETCH 
/INTERRUPT ROUTINE 
KSFSUB, @ /CALLED AS SUBROUTINE 
KRB1 
DCA INCHR 
CDF CIF @ 
JMPZ DISMIS+1 /RETURN TO SYSTEM LOCATION 
/CONTAINING "JMP DISMIS" 
INCHR, 2 
ONQI, ADDR #ONQI 
HANG, ADDR #HANG 
DISMIS, ADDR #DISMS 
FIRST, -! 


In most cases, it is easier to include references to the FORLIB 
module ONQI for adding a handler to the interrupt skip chain and 
ONQB for adding a job to the idle chain, instead of trying to modify 
#IDLE and #INT. ONQB provides slots for up to 9 idle jobs to be 
executed round-robin, and ONQI provides for up to 9 user flags to 


be tested on program interrupts. 


FRTS entry points are listed, along with the core map, on the following 
pages. The FRTS calling sequence must be observed in any user 
subroutine. The formal calling sequence is illustrated below. In 
general, it can be used exactly as illustrated, changing only the 


section, entry, base page, index register and return location names. 


EXAMXR, 
BPEXAM, 
XREXAM, 
EXTMP1, 


EXTMP2, 
EXTMP3, 


EXMRTN, 


#EXSRT, 


SECT EXAMPL 


JA #EXSRT 
TEXT +EXAMPL+ 
SETX XREXAM 
SETB BPEXAM 
F 0.0 
F 0.0 
E050 
F 0.0 
F 0.0 
0.0 


F 


ORG 10*3+BPEXAM 


FNOP 
JA EXAMXR 


0 

JA. 

BASE 0 
STARTD 
FLDA 10*3 


FSTA EXMRTN 


FLDA 0 


SETX 
SETB 


XREXAM 
BPEXAM 
BASE BPEXAM 
FSTA BPEXAM 
EDX 1,1 

FLDA% BPEXAM, 
FSTA EXTMPL 
FLDA% BPEXAM, 
FSTA EXTMP2 


FLDA% BPEXAM, 1+ 


FSTA EXTMP3 


STARTF 
FLDA% 


EXTMP1 


FLDA% EXTMP2 


JA EXMRTN 


al 


FRTS CALLING SEQUENCE 


/section 
/require 


name. Your module may 
another section pseudo-op 
/such as FIELD1 or SECTS8. 

/Jump to start of subroutine 
/Use # for first character 

/6 character section name for 
f/error traceback (optional) 

/Set up index registers 

/for this subroutine 

/and its base page. 

/Base page 

/Index registers 0-2 

/Index registers 3-5 (optional) 
/Space between index registers 
/and the ORG for temporary 
/storage (optional) 

/Location 30 of base page 

/Force a two-word instruction 
/Jump to base page for 

/return to calling program 
/Force a two-word instruction 
/Will be replaced by return jump 
/Caller's base page 

/Start of subroutine 

/Get return jump from caller's 
/base page 

/Save in return location for 
/this routine 

/Location 0 of caller's routine 
7/is a pointer to the argument list 
/Change to EXAMPL's index registers 
/Change to EXAMPL's base page 


/Save the pointer 

/Set up index register l 

/Get address of argument list 
/Save the addresses 


1+/of all passed arguments 


/Continue for all arguments 
/to be picked up 


/Start three-word instructions 


/Continue to get arguments 
fas required in routine 
/EXit when done 


RTS ENTRY POINT 


#UE 


#ARGER or 
#ARGERR 


# READO 


#WRITO 


# RUO 


#WUO 


# RDAO 


#WDAO 


#RFSV 


# RENDO 
#ENDF 


Wort 


#REW 
#BAK 


# DEF 


.@) 
FF 


or 


TRAP4 #ARGER 


TRAP3 #READO 
JA UNITNO 
JA FORMAT 


TRAP3 #WRITO 
JA UNITNO 
JA FORMAT 


TRAP3 #RUO 
JA UNITNO 


TRAP3 #WUO 
JA UNITNO 


TRAP3 #RDAO 
JA UNITNO 
JA RECNO 


TRAP3 #WDAO 
JA UNITNO 
JA RECNO 


TRAP3 #RFSV 


TRAP3 #RENDO 


FLDA UNITNO 
TRAP3 #ENDF 
TRAP3 #REW 


TRAP3 #BAK 


TRAP3 #DEF 
JA UNITNO 
JA RECORDS 
JA FPNPR 
JA VARIABLE 


JSR #EXIT 


TRAP3 #SWAP 
ADDR 


/=00000001 if 


wee ew 


Address of background job, used by ONQB. 
JMP I (NULJOB 


0 

CDF Cir 
JIMS 2 4-2 
JMP ,-4 


USEAGE AND COMMENTS 


/Produces BAD ARG error message, 


/Initializes 
/formatted 
/read operation. 


/Initializes 
/formatted 
/write operation, 
/Initializes unformatted 
/read operation. 


/Initializes unformatted 
/write operation. 


/Initializes 
/direct access 
/read operation, 


/Initializes 
/direct access 
/write operation. 


/Passes a variable to or from the read/ 
/write processors via the floating AC. 


/Terminates a read/write operation. 
/Executes an 


fend file, 


) : 
/rewind, 


/opackspace (depending upon the entry used) 
fon the referenced I/O unit. 


/Opens a file 
/for direct access I/O. 


/(FPP numbers per record) 
/Refer to DEFINE FILE statement 


/Terminates current FORTRAN IV job. 


/Reads overlay OVLY into level LVL and 
/jumps to ADR. ADDR is given by: 
/ADDR=4000000 *OVLY+100000*LVL+ADR 


the CPU is a PDP-12. 


Contains: 


/Replace by SKP 
/Replace by addr of background job 
/Replace by field of background job 


0000 


0200 


0600 


1400 


2000 


2400 


2600 


3000 


3400 


3600 


4000 


4400 


4600 


5200 


5600 
6000 
6600 


7400 


7600 


10000 


CORE LAYOUT OF FRTS 
NON-FPP FPP (Same as non-FPP unless indicated) 
(0120-0134 free) 


Page zero 


Most entry points, character 
I/O handlers, interrupt 
service, and HANG routine 


Format decoder; A, H, and ' 
format processors, and EXIT 


REWIND, ENDFILE, BACKSPACE 
and general unit initializa- 
tion. DATABL table (3 wds/unit) 


GETHND routine 
Char in and char out routines 


including OS/8 packing, ed- 
iting and forms control 


Binary and D. A. I/O, and 
DEFINE FILE processor 


Overlay loader 


Input line buffer, overlay 
and DSRN tables, FORMAT 
parenth pushdown list, /P 
processor and init flag clear 


Floating-point utilities 
(shift, add, etc.) used even 
w/FPP 


Error routine and messages 


OS/8 handler area and part of 
FRTS loader initialization 


FPP simulator 


Floating-point package (never used) 
part of LPT ring buffer and part of LPT ring buffer 


OS/8 handler and field 
0 resident 


OS/8 User Service Routine 


laa 
12000 | FRTS loader tables, IONTBL Locations 12000 to 17400 are 


overlayed at execution time 


12200 | FRTS loader: main flow 
12400 program start-up?! 
12600 initialize and 
configure system 
13000 | Load OS/8 handlers and assign 
unit numbers to OS/8 files 
13400 | Utility and error routines, 
error messages 
14000 
15600 | FPP start-up and trap routines {Locations 14000 to 16777 are used 
to save lower field 0 during loading 
16000 |B and D format I/0 of device handlers and file 
specifications 
16600 | EAE Floating-point package 
written on SYS block 37 before 
17600 {05/8 field 1 resident program load and restored on 
‘ {termination 
#INT /Address of user interrupt location, used by ONQI: 
JMP .+4 /Replace with SKP 
0 /Replace with address of interrupt 
processor 
CDF CIF 0 /Replace with field of interrupt processor 
JMS I .-2 
#DISMS /Addresses first of three JMP DISMIS instructions for 
use by specialized I/O routines. 
#HANG /Addresses I/O dismiss routine. 
#RETRN /Provides return from TRAP3, 


1Program start-up moves OS/8 handler to top of core, writes field 
1 resident onto SYS, and termination routine goes to FRTS to load 
program. 


DSRN TABLE 


The DSRN table controls files and I/O devices used under OS/8 FORTRAN 


IV ASCII, binary and direct access I/O operations, including BACKSPACE, 


REWIND, and END FILE operations. The exact meaning of the initials 


DSRN is one of the great, unanswered questions of FORTRAN IV develop- 


ment and, as such, has considerable historical interest. The DSRN 


table provides room for 9 entries; each entry is 9 words in length, 


and contains the following data: 


WORD 1: 


WORD 2: 


WORD 3: 


WORD 4: 


WORD 5: 


(HAND) Handler entry point. If this value is positive, 
the I/O device handler is a FORTRAN internal (character- 
oriented) handler, and the remainder of the DSRN table 
entry is ignored. If the value is negative, the handler 
is an OS/8 device handler whose entry point is the two's 
complement of the value. Entry points always fall in 
the range [7607, 7777] for resident handlers or [5200, 
5377] for non-resident handlers. Space for non-resident 
handlers is allocated downward from the top of memory, 
and the handlers are moved into locations 5200 to 5577 
before being called. 


(HCODEW) Handler code word. Bits 0-4 of this word specify 
the page into which the device handler was loaded, while 
bits 6-8 specify the memory field. If all of bits 0-8 
are zero, the handler is permanently resident. When any 
of these bits are non-zero, the data is used to determine 
which handler, if any, currently occupies locations 5200- 
5577. This eliminates unnecessarily moving the content 
of memory. Bit 10 is set if forms control has been 
inhibited on the I/O unit. Bit 11 is set if the device 
handler can execute with the interrupt system enabled. 
The data in bits 10 and 11 is obtained from the IOWTBL 
table in the FRTS loader. 


(BADFLD) Buffer address and field. Bits 0-4 address the 
memory page at which the I/O buffer for this unit begins, 
while bits 6-8 specify the memory field. Unlike the FORTRAN 
internal I/O unit buffers, OS/8 device handler buffers 
always occupy two full pages of memory. Buffer space is 
allocated upward from the top of the FORTRAN program. 


(CHRPTR) Character pointer. 
(CHRCTR) Character counter. Words 4 and 5 of each DSRN 


table entry define the current character/position in the 
I/O buffer as follows: 


Value of Character Next value Next value Special 


CHRCTR position of CHRCTR of CHRPTR Conditions ; 
| Bits 4-11 of word | | Refresh buffer if 

\ 1 

-3 addressed by ~2 CHRPTR + 1; input operation and 

CHRPTR CHRPTR mod 256=0 

| 

-2 " -1 

-1 Bits 0-3 of words 


addressed by | 
CHRPTR-2 and | -3 
| 


CHRPTR Dump buffer if 


output operation and 


" none 
| 
|p 
CHRPTR-1 | 
| 


| CHRPTR mod 256=0 


WORD 6: (STBLK) Starting block of file. 


WORD 7: (RELBLIC) Current relative block of file. That is, block 
to be accessed next. 


WORD 8: (TOTBLK) Length of file in blocks. 
WORD 9: (FFLAGS) Status flags: 


Bit 0 - Has been written flag. Set to 1 if unit has 
received output since last REWIND. 


tted I/O flag. Set to 1 if an ASCII I/O 
Osee ation has occurred since last REWIND. 


to 

jH- 

ct 

IO 
! 


Unformatted I/O flag. Set to 1 if a binary 
or direct access I/O operation has occurred 
Since last REWIND. Bits 1 and 2 are never 
set simultaneously. 

Bit 1l- END FILEd flag. Set to 1 if unit has been 


END FILEd. Bit 11 is not cleared by a 
REWIND. 


When any active unit is selected for an I/O operation, the DSRN table 
entry for that unit is moved intc 9 words on page 0. These 9 words 
are tagged with the labels cited above. Upon completion of the I/0 


operation, the 9 words are moved from page 0 back into the DSRN table. 
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O2002 
02081 
888d2 
BB0835 
B2B94 
688d5 
BBdGS 
BBOO7 
GOG13 
98011 
89812 
82015 


8OB16 
BOO17 
96928 
80021 
08022 


Q8823 
80924 
88025 
88826 
88027 
809508 


800351 
89052 
80033 


00834 
88855 
@2836 


000357 
820468 
80841 
28842 
00043 
B0844 
00045 
BBB4E 
BOG4T 
80858 
@0051 


BBO 
BB8@ 
3462 
8402 
3165 
BOOO 
8900 
BBOB 
8880 
BBB 
S777 
BBO 
8200 


BB16 
BOB 
BOOB 
8000 
BOOB 
OBOB 


BOGB 
B80 
8808 
B90 
88GB 
BBO 


8300 
8980 
5431 


5813 
OBOO 
5000 


BBOB 
5313 
B82 
QBBB 
8828 
0098 
Ms, 
8088 
28088 
GO02 
8882 


/PAGE ZERO FOR FORTRAN IV RTS 


mY, 
g 
JMP I 
INTRPT 
LPGET, LPBUFR 
TOCHR, @ 
KBDCHR, @ 
POCHR, @ 
RDRCHR, @ 
FMTPXR, @ 
INXR, INBUFR-1 
XR, ") 
XRI, g 
*16 
VEOFSW, @ 
") 
T, g 
DFLG, @ 
INST, @ 
/I10H PAGE 
RWFLAG, @ 
FMTTYP, @ 
EOLSW, @ 
N, @ 
W, ) 
D, g 
DATCDF, @ 
DATAF, @ 
JMP I 
ERR, ERROR 
FATAL, @ 
MCDF, | MAKCDF 


INTERRUPT STUFF 


ot] 


/LINE PRINTER RING BUFFER FETCH 
/TELETYPE STATUS WORD 

/KEYBOARD INPUT CHARACTER 

/P.T. PUNCH COMPLETION FLAG 
/P.T. READER STATUS 

/XR USED TO INDEX FORMAT PARENTH 
/XR USED TO GET CHARS FROM INPUT 


/USED BY “EOFCHK™ TO STORE VARIABLE ADDRESS 
/*K* MUST BE IN AUTO =- XR 

/TEMPORARY 

76 = F.ePs, 1 = DLP. 

/CURRENT INSTRUCTION WORD 


ZERO LOCATIONS 


/READ/WRITE FLAG 

/TYPE OF CONVERSION BEING DONE 
“EOL SW ON INPUT - CHAR POS ON OUT 
/REPEAT FACTOR 

/FIELD WIDTH 

/NUMBER OF PLACES AFTER DECIMAL 


/SUBROUTINE TO CHANGE DATA FIELD 
/CONTAINS VARIOUS CDF’'S 
DATCDF /RETURN 


/POINTER TO ERROR ROUTINE 
/FATAL ERROR FLAG - @=FATAL 


/FPP PARAMETER TABLE LOCATIONS: 


@ 
DPTEST 


Baagenaoeed 


/VARIOUS FIELD BITS FOR FPP 

/FPP PROGRAM COUNTER 

/FPP INDEX REGISTER ARRAY ADDRESS 
/FPP BASE PAGE ADDRESS 

ADDRESS TEMPORARY 


/**k* FLOATING ACCUMULATOR *** 


7** FOR EXTENDED PRECISION OPTION *x 
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98852 
88053 
BBO54 
82055 
BBO56 
68057 


CBOES 
82061 
BO862 
O0O63 
BBB64 
QOB65 
BBOSE 
@O267 
C0879 
80071 
B3272 
28273 
BBBT4 
88875 
BBOTS 


S2S7T7 
92198 
82101 
82182 


GAIA 


GOiG4 
08185 
BB1G6 
B8107 


681128 
68111 
g8112 


OB113 
@2114 
@B8115 


G8BO 
2088 
QB2O 
BOBO 
BLOB 
G820 


Oe ) 
880d 
) 
8088 
GBB 
B2BS 
BBG 
2008 
BOP 
2809 
9282 
2200 
8528 
3008 
6281 


G20B 
GOGO 
O2GBB 


0000 
3900 
3009 
020d 
2000 


BOBO 


GHG 
7492 
5518 


BHBS 
2208 
S208 
A220 


PAL8-V8 
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/FLOATING POINT PACKAGE LOCATIONS 


ACG, 
ACL, 
OPH, 
OPL, 


QaQQAAB 


/FLOATING AC OVERFLOW WORD 
/OPERAND OVFLOW WORD 


/*#% FLOATING OPERAND REGISTER *xx 


/RTS 1/0 SYSTEM LOCATIONS 


FMTBYT, 
IFLG, 
GFLG, 
EFLG, 
oD, 
SCALE, 
PFACT, 
PFACTX, 
INESW, 
CHCH, 
FMT NUM, 
CTCINH, 
PTTY, 


FPNXT, 


TY 


SHA KWH BAaae ® 


ECYCLE 


/DSRN IMAGE 


HAND, 
HCODEW, 
BADFLD, 
CHRPTR, 
CHRCTR, 
STBLK, 
RELBLK, 
TOTBLK, 
FFLAGS, 


BUFFLD, 


BUFCDF, 


FGPBF, 
BIOPTR, 


YQagaguaan 


4) 
HLT 


JMP I BUFFLD 


/FORMAT BYTE POINTER 

/1 FOEMAT FLAG 

/G FORMAT FLAG 

/E FORMAT FLAG - SOMETIMES ON FOR 


/P*SCALE FACTOR 
/TEMP FOR PFACT 
/EXPONENT SWITCH 


/CONTAINS ACCUMULATED NUMERIC VALUE 
/tC INHIBIT FLAG 

/POINTER TO TTY HANDLER - USED BY 
/ SO FORMS CONTROL WILL WORK ON 
/USED AS INTERPRETER ADDRESS IF 


/HANDLER ENTRY POINT . 
/HANDLER LOAD ADDR & FIELD + IOFFL 
/BUFFER ADDRESS AND FIELD 
ACTUALLY A WORD POINTER 

/COUNTER - RANGES FROM -3 TO -1 
/STARTING BLOCK OF FILE 

/CURRENT RELATIVE BLOCK NUMBER 
/LENGTH OF FILE 

/FILE FLAGS: 

/BIT ® - “HAS BEEN WRITTEN” FLAG 
/BITS 1-2 - FORMATTED/UNFORMATTED 
/BIT 11 - “END-FILED™ FLAG 


/ROUTINE TO SET DF TO BUFFER FIELD 


/THESE THREE WORDS ARE USED 
/TO FETCH AND STORE FLOATING POINT 
/FROM RANDOM MEMORY 
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/STARTUP CODE 


820 2203 FTEMP2, ISZ ot3 /ALSO USED AS I/0 F.P. TEMPORARY 
2201 62138 CDF CIF 1@ 

@0292 5683 JMP I ot! 

@22053 2206 VDATE, RTSLDR /USED TO STORE OS/8 DATE 


/RTS ENTRY POINTS - “VERSION INDEPENDENT” 


@0284 5777 VUERR, JMP I CUSRERR /USER ERROR 
/7** LOADER MUST DEFINE #ARGER AS 


2@205 4434 VARGER, JMS I ERR /LIBRARY ARGUMENT ERROR 
2206 2023 VRENDO, 1SZ RWFLAG /END OF I/0 LIST 

20207 5634 VRFSV, JMP I GETLMN /I/0 LIST ARG ENTRY - COROUTINE 
@@212 5776 VBAK, JMP I <BKSPC /"BACKSPACE” ROUTINE 
@@211 5775 VENDF, JMP I CENDFL /"END FILE” ROUTINE 
@0212 5774 \VREW, JMP I CRWIND /"REWIND” ROUTINE 

90213 5773 VDEF, JMP I (CDFINE /"DEFINE FILE” ROUTINE 
2214 7330 VWwUO,  AC49a0 /UNFORMATTED WRITE 

@8215 5772 VRUO, JMP I CRWUNF /UNFORMATTED READ 

Z@216 7338 vWwDAO, ACc4gaa /DIRECT ACCESS WRITE 
00217 5771 VRDAO, JMP I  CRWDACC /DIRECT ACCESS READ 
@G226 7330 VWRITO, AC40U@ /FORMATTED (ASCII) WRITE 


08221 5778 VREADO, JMP I CRWASCI /FORMATTED CASCII) READ 
@@222 5767 VSWAP, JMP I (SWAP /OVERLAY PROCESSOR 
g@225 3008 VEXIT, TRAP3; CALXIT /"STOP™ ROUTINE - ENTERED IN FPP 


08224 1317 


28225 8608 V8ORI2, 838 /®31 IF CPU IS A PDP-1l2 

868226 8608 

@8227 5766 VBACKG, JMP I CNULLJB /BACKGROUND JOB DISPATCHER 

22252 8882 g 

88231 6283 CDF CIF @ /USED BY ROUTINE “ONQB™ IN LIBRARY 
00232 4636 JMS I “rc 

90233 5227 JMP VBACKG 


/TOH GET VARIABLE ROUTINE. 

7THIS ROUTINE MAKES THE FORMATTED 1/0 PROCESSOR AND THE 
/PROGRAM CO-ROUTINES (DEFCCOROUTINE)= 2 ROUTINES EACH 

/ IS A SUBROUTINE). ON ENTRY FAC=INPUT NUMBER 

/IF 1/0 IS A READ, ON RETURN FAC=OUTPUT NUMBER IF I/0 


02254 68000 GETLMN, 2 
20235 5577 VRETRN, JMP I (RETURN 


All FORTRAN IV mass storage I/O is performed in terms of OS/8 blocks, 
including direct access I/O. Hence, all FORTRAN IV files conform to 
OS/8 standard ASCII file format. When a formatted READ or WRITE is 
requested, the data is converted to or from 8-bit binary representa- 
tion according to the FORMAT statement associated with the READ or 
WRITE. Standard OS/8 file format packs three 8-bit characters into 
two 12-bit words as follows: 


MASS STORAGE CORE 


qc“ 
WORD 3 


| 
bits 0-3 WORD 1 
WORD 3 WORD 2 
Poaee 4-7 WORD 2 ae eee 
; = WORD 3 | 
ea a oe ee 


Unformatted (i.e. direct access) READ and WRITE operations also 
operate on standard OS/8 format files, with each statement causing 
one FORTRAN IV record to be read or written. A FORTRAN IV tacona 
must contain at least one OS/8 block, and always contains an integral 
number of blocks. The number of variables contained in a 1l-block 


record depends upon the content and format of the I/O list, as 


follows: 
Eom Eype words Variable Variables /Block 
Integer 3 85 
Real 3 85 
Double precision 6 42 1/2 
Complex | 6 42 1/2 


It is possible to mix any types of data in an I/O list; however, no 
more than 85 variables may be stored in one OS/8 block. The number 
of blocks required for a FORTRAN IV record depends, therefore, upon 
the number of variables in the I/O list, and may be minimized by 


Supplying every direct access WRITE with sufficient data to nearly 


fill an integral number of blocks without overflowing the last block, 


The last word in every file block contains a block count sequence 
number and is not available for data storage. FRTS assigns block 
count numbers sequentially, beginning with 1, whenever a file is 
written. Block count numbers must be maintained by the user when 
FORTRAN IV files are created outside of an OS/8 FORTRAN IV environ- 
ment. While reading a binary file, FRTS checks the block count 
sequence numbers on input blocks and ignores any block whose sequence 
number is larger than expected. Sequence number checking is 


disabled during direct access READ operations. 


When FRTS is loaded and started, the initialization routines deter- 
mine what optional hardware, such as FPP-12 Floating Point Processor 
or KE8E Extended Arithmetic Element, is present in the running 
hardware configuration. The initialization routines then modify 
FRTS to use the optional hardware, if available. When an FPP is 
present in the system and it becomes desirable to disable the FPP 
under FRIS, this may be accomplished by changing the content of 
location 12621 from 6555 to 7200. The extended arithmetic element 
may be disabled in the same manner by changing the content of FRTS 
location 12623 from 7413 to 7200. These changes must be made before 
FRTS is started. The OS/8 monitor GET and ODT commands provide an 


excellent mechanism for changes of this type. 


The FRTS internal line printer handler uses a linked ring buffer for 
maximum I/O buffering efficiency. The buffer consists of several 
contiguous sections of memory, linked together by pointers. All of 
these buffer segments are located above 04000, so that the pointers 
are readily distinguishable from bufferred characters. The entire 
07400 page is included in the line printer ring buffer, If it 
becomes desirable to modify FRTS by patching or reassembly, most 


of the 07400 page may be reclaimed from the buffer by changing the 
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content of location 07402 from 7577 to 5164, This frees up locations 
07403 to 07577 for new code and still leaves about eighty character 


positions in the LPT ring buffer. 


Because FRTS executes with the processor interrupt system enabled, 
it may hang up on hardware configurations that include equipment 
capable of generating spurious program interrupts. In addition, 
/Q device handler that exits without clearing all device 
flags may cause troublesome interrupts when it is assigned as a 
FORTRAN I/O unit under FRTS. To counteract these potential 
problems, FRITS provides certain areas that are reserved for 
inclusion of user-generated code designed to clear device flags 


and/or inhibit spurious interrupts. 


A string of NOP instructions beginning at location 04020 is 
executed during FRITS initialization, just before the interrupt 
system is enabled. When the /H option is specified to FRITS, the 
system halts after these NOPs have been executed and the interrupt 
system has been enabled. Another string of NOPs occupying the 
eight locations from 03746 to 03755 is executed after every call 
to an OS/8 device handler. Any of these NOP instructions may be 
replaced by flag-handling or interrupt-servicing code. If 
additional memory locations are required, théy may be obtained by 
replacing some of the code from locations 04007 to 04017 with 
flag-handling code. Locations 04007-17 are used to clear flags 


associated with LAB-8/E peripheral devices. 


Due to memory limitations, it is not possipie to add internai 1/0 
device handlers to the four internal handlers supplied with the 

system. However, FORTRAN I/O unit 0, which is not defined by the ANSI 
Standard, may be specified for terminal I/O via the internal console 


terminal handler. I/O unit 0 is not re-assignable. 
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/FORTRAN 4 RUNTIME SYSTEM - R.L  PAL8-V8 PAGE 6 
/INTERRUPT DRIVEN I/0 HANDLERS 


60256 8888 LPT, B /RING*BUFFERED - LP@8 OR LS8E 
20257 8176 AND [377 /JUST IN CASE 

0240 74580 LPTSNA, SNA 

88241 5765 JMP I CIOERR /CANNOT BE USED FOR INPUT 
80242 6862 IOF 

00243 3667 DCA I LPPUT 

80244 10603 TAD LPGET 

98245 7641 CIA 

B8246 1267 TAD LPPUT 

Q0247 7648 SZA CLA /1S LPT QUIET? 

@8258 5255 JMP +3 /NO 

@@251 1667 TAD I LPPUT 

00252 6666 LLS /YES - START ‘ER UP 

00255 7261 CLA IAC 

@8254 6665 I /ENABLE LPT INTERRUPTS 
88255 1267 TAD LPPUT /1 IN AC, REMEMBER? 

80256 3267 DCA LPPUT 

@0257 1667 TAD I LPPUT 

OB260 T7518 SPA 

88261 5256 JMP 275 /NEGATIVE NUMBERS ARE BUFFER LINKS 
@@262 7640 SZA CLA /ANY ROOM LEFT IN BUFFER? 
@8263 4764 JMS I CHANG 

QB264 BASE LPUHNG /WAIT FOR LINE PRINTER 
28265 6081 ION /TURN INTERRUPTS BACK ON 
@2266 56356 JMP I LPT /RETURN 


@0267 5165 LPPUT, LPBUFR 


2276 @000 PTP, @ 7PAPER TAPE PUNCH HANDLER 
@2271 7458 SNA 

00272 5765 JMP I CIOERR /INPUT IS ERROR 

@2275 32356 DCA LPT /SAVE CHAR 

Q@0274 6002 I0F 

00275 1006 TAD POCHR /IF PUNCH IS NOT IDLE, 
@0276 7646 SZA CLA /WE DISMISS JOB 

@Q277T A764 JMS I CHANG 

20300 @85¢2 PPUHNG /WAIT FOR PUNCH INTERRUPT 
00301 1236 TAD LErt 

08302 6826 PLS /OUTPUT CHAR 

60503 3886 DCA POCHR /SET FLAG NON-ZERO 
@0584 6201 ION 

GB525 5678 JMP I PTP 


/*K* THE FOLLOWING ADDRESSES GET FALLEN INTO & MUST BE SMAL 


IFNZRO PPUHNG&7E8O <¢eERRORCe> 
IFNZRO TTUHNG&7080 <¢eERRORee> 
IFNZRO KBUHNG&7808 <eeERRORCe> 
IFNZRO RDUHNGETOSB <eeERRORee> 
IFNZRO LPUHNG&7TOS2 <¢-ERRORCe> 


/FORTRAN 4 RUNTIME SYSTEM - R.L PAL&-V& PAGE 7 
/INTERRUPT-DRIVEN PTR AND TELETYPE HANDLER 


@23G6 8090 PTR, "y /CRUDE READER HANDLER 

C2307 7648 SZA CLA 

@2318 5765 JMP I CIOERR /OUTPUT ILLEGAL TO PTR 

86VSii 6982 IOF 

82512 6814 RFC /START READER 

@0313 4764 JMS I CHANG 

80514 98518 RDUHNG /HANG UNTIL COMPLETE 

8315 1607 TAD RDRCHR /GET CHARACTER 

@031E6 6881 ION 

88317 5786 JMP I PTR /RETURN 

00328 8880 TTY, 4) /BUFFERS 2 CHARS ON OUTPUT, 1 ON 
O9321 6882 IOF /DELICATE CODE AHEAD 

88522 7459 SNA /INPUT OR OUTPUT? 

20523 5342 JMP KBD /INPUT 

88324 3256 DCA LPT /OUTPUT = SAVE CHAR 

22525 1804 * TAD TOCHR /GET TTY STATUS 

@8326 7740 SMA SZA CLA /G.T. @ MEANS A CHAR IS BACKED UP 
88327 4764 JMS I CHANG 

68352 @451 TTUHNG /WAIT FOR LOG JAM TO CLEAR 

88551 1804 TAD TOCHR /NO CHAR BACKED UP - SEE IF TTY 
88332 T1@4 CLL RAL /"BUSY" FLAG IN LINK - INTERRUPTS 
085333 723d CLA CML RAR /COMPLEMENT OF BUSY IN SIGN 
88354 1256 TAD Let GET CHAR 

88335 7518 SPA /IF TTY NOT BUSY, 

98336 6846 TLS /OUTPUT CHAR 

90337 3884 DCA TOCHR /STORE POS OR NEG, BACKED UP 
89342 68081 TIYRET, ION /TURN INTERRUPTS BACK ON 

62341 5720 JMP I TTY /AND LEAVE 

/FORTRAN 4 RUNTIME SYSTEM - R.L PALS -V8 PAGE 8 

@G342 1825 KBD, TAD KBDCHR /HAS A CHARACTER BEEN INPUT? 
28343 765d SNA CLA 

00344 4764 JMS I CHANG 

$2345 6465 KBUHNG /NO - RUN BACKGROUND UNTIL ONE IS 
@8346 1005 TAD KBDCHR /GET CHARACTER 

98347 3236 DCA LPT 

2356 3205 DCA KBDCHR /CHEAR CHARACTER BUFFER 

82551 1236 TAD LPT 

08352 5348 JMP TTYRET /RETURN WITH INTERRUPTS ON 

@8353 6554 KILFPP, FPHLT /BRING FPP TO A SCREECHING HALT 
92554 2353 1SZ onl 

08355 5354 JMpP etl /WAIT FOR IT TO STOP 

8356 6552 FPICL /CLEAN UP MESS HALT HAS MADE IN FPP 
@6357 7438 SZL /tC OR TB? 

88360 5763 JMP I (7620 /tC - HIYO SILVER, AWAY! 

28361 6832 KCC /CLEAR KBD FLAG ON TB 

@0362 4434 CTLBER, JMS I ERR /*** THIS MAY BE DANGEROUS! ** 


/FORTRAN 4 RUNTIME SYSTEM - R.L 


8482 
80481 
82482 
82403 


00404 
QB 495 
88496 


QL 407 
80410 
O@411 


BB4l2 


884135 
QB414 


@B415 
BBAL6 
Od417 
@0428 
80421 
88422 
02423 
00424 
88425 
BB426 
@8427 
82432 
08431 
804352 
80433 
92434 
82435 
80436 
82457 


00440 
02441 
82442 
80443 
@2444 
00445 
BO446 
@2447 
82458 
60451 


$322 
7818 
5323 
D287 


O8680 
6205 
4604 


6551 
5215 
3314 


5314 
D514 
5314 


6661 
5240 
6662 
14835 
71658 
5514 
3483 
28035 
14035 
7516 
59935 
7458 
1483 
T7449 
6666 
7280 
§661 
3314 
aeit 


6041 
5252 
6042 
1024 
1548 
6946 
TT4@ 
7130 
3OB4 
5514 
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/INTERRUPT SERVICE ROUTINES 


INTRPT, 


VINT, 


FPUHNG, 
VDISMS, 


LPTEST, 
LPTLCF, 


JMPDIS, 


LPUHNG, 


NOTLPT, 


TTUHNG, 


DCA 
RAR 
DCA 
JMP 

IF NZRO 
"4 


CDF CIF 
JMS I 


FPINT 
JMP 
JMP 


JMP 
JMP 
JMP 


LSE 
JMP 
LCF 
TAD I 
SNA CLA 
JMP 
DCA I 
ISZ 
TAD I 
SPA 
DCA 
SNA 
TAD I 
SZA 
LLS 
CLA 
LSF 
JiMiP 
Jlap 


TSF 
JMP 
TCF 
TAD 
SMA SZA 
TLS 
SMA SZA 
STL RAR 
DCA 
JMP 


INTAC 


INTLNK 
+4 


VINT-483 


4) 
e72 


LPTEST 
DISMIS 
DISMIS 


DISMIS 
DISMIS 


NOTLPT 
LPGET 
DISMIS 
LPGET 
LPGET 
LPGET 
LPGET 


LPGET 


DISMIS 
LPTLCF 
NOTTTY 
TOCHR 


CLA 


TOCHR 
DISMIS 


/** MUST BE AT 483 ** 
<eee CHANGE LOADERI!!> 


/USER INTERRUPT ROUTINE GOES HERE 


/CHECK FOR FPP DONE 
/ALWAYS GOES TO RESTRT 
/FOR USE BY USERS 


/CLEAR FLAG 


/CHECK FOR SPURIOUS INTERRUPT 
/GO AWAY IF SO 
7ZERO CHAR JUST OUTPUT 


/TAKE CARE OF BUFFER LINKS 


/MAKE SURE CHAR 1S IN AC 
71S THERE A CHARACTER? 
/YES - PRINT IT 


/CHECK FOR IMMEDIATE FLAG 
/NO - MAYBE RESTART PROGRAM 
AVES. = LOOP 


/CHECK TTY 


/CLEAR FLAG 

/GET TTY STATUS 

/IF THERE IS A CHARACTER WAITING, 
/OUTPUT IT. 

/CHANGE “WAITING” TO “BUSY", 
/°BUSY™ TO“ LOLE™s 


/FORTRAN 4 RUNTIME SYSTEM - R.L 


80452 
82453 
@0454 
@2455 


TAMAR L 
WOWAySs 


OB457 
B2468 
80461 
@2482 
82463 
BB4G4 
QB4E5 


B2466 
BQA67 
QQA7B 
3471 
BBA72 
O0473 
OD474 
@475 


OBATS 
OB47T7 
28500 
80591 
@O502 


02593 


22564 
@0585 
@2506 
@O597 
88518 


88511 
80512 
99513 
BO514 
@8515 
BO516 
@O517 
80528 
80521 


88522 


AA5O 4 


EIS A Las Ne 


60351 
5278 
1175 
6034 


ZAAG 
5285 


1885 
1577 
T110 
7658 
5266 
6852 
5514 


18735 
7856 
5366 
1323 
7164 
1522 
6244 
3480 


6921 
5383 
6822 
SOBE 
3514 


$@il 
5311 
1175 
6612 
5887 
5314 


66635 
T4180 
6667 
1323 
T124 
1322 
6244 
6281 
S408 


BBG6 
2282 


/KBD AND PTP INTERRUPTS 


NOTTTY, 


KBUHNG, 
CTCCTB, 


NOTKBD, 


RDUHNG, 
LPTERR, 


DISMIS, 


INTAC, 


TATI ANY 


hiv a TIN 


KSF 
JMP 
TAD 
KRS 


Nea 


yun 


TAD 
TAD 
CLL RAR 
SNA CLA 
JMP 
KCC 
Jip 


TAD 
SNA CLA 
JMP 

TAD 

CLL RAL 
TAD 
RMF 
JMP I 


PSF 
JMP 
PCF 
DCA 
JMP 


RSF 
JiMP 
TAD 
RRB 
DCA 
JMP 


LSE 

SKP 

LIF 

TAD 

CLL RAL 
TAD 

RMF 

ION 

JiaP I 


G 


a 


y 


NOTKBD 
[20d 


KBDCHR 
KBDCHR 
(-202 

CICCTB 
DISMIS 
CTCINH 


NOTINH 
INTLNK 


INTAC 


g 


NOTPTP 
POCHR 
DISMIS 
LPTERR 
[208 


RDRCHR 
DISMIS 


INTLNK 
INTAC 


4) 
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/USE KRS TO FORCE PARITY BIT 
AND ALSO SO THAT TC WILL STILL 


/CHECK FOR TC OR TB 


/YUP - TAKE SOME DRASTIC ACTION 
/DATA CHARACTER - CLEAR FLAG 


7ZARE WE IN A HANDLER? 
/NO 


7YES - RETURN WITH INTERRUPTS OFF 
/TRUST IN GOD AND RTS 


/P.T. PUNCH INTERRUPT - CLEAR FLAG 
/CLEAR SOFTWARE FLAG 


/GET RDR CHAR 


/TEST FOR LP@& ERROR FLAG 
/DISABLE LP@8 INTERRUPTS IF ERROR 


/RESTORE AC AND LINK 


7RETURN FROM THE INTERRUPT 


/FORTRAN 4 RUNTIME SYSTEM - R.L 


G@8524 
00525 
00526 
82527 
98530 
80531 
06532 
80533 
QE554 
80535 
80536 
005357 
08542 
00541 
005 42 
68543 


@B544 
@0545 
88546 
QO547 
00558 
00551 
82552 
89553 
00554 
00555 
09556 
80557 
B2566 
20561 
00562 
82563 
80564 
88565 


BO566 
Q2567 
BO570 


BO571 
80572 
82573 
80574 


88575 
@0576 
OO577 


BOBO 
1724 
5371 
6214 
1332 
5364 
62035 
1576 
$771 
1373 
7104 
13572 
62 82 
6261 
6001 
S7TTA 


1222 
5771 
1322 
5572 
1325 
33573 
1828 
3374 
6234 
8174 
1332 
5349 
62354 
4436 
3541 
2324 
7482 
9724 


1222 
S771 
S775 


QGP 
B82 
2BV2 
6227 
@524 


0353 
3544 
7576 
Z6BO 
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/BACKGROUND INITIATE/TERMINATE ROUTINE 


HANG, 


HCIDFO, 


BAKCIF, 
BAKCDF, 


RESTRT, 


HNGCDF, 


NOTINH, 


UNHANG, 
BACKAC, 
BACKLK, 
BACKPC, 
VHANG= 


@ 

TAD I 
DCA 
RDF 
TAD 
DCA 
CDF 
TAD 
DCA I 
TAD 
CLL 
TaD 
CIF @ 
CDF @ 
ION 
JMP I 


COME HERE WHEN 


TAD 
DCA I 
TAD 
DCA 
TAD 
DCA 
TAD 
DCA 
RIB 
AND 
TAD 
DCA 
RIB 
JMS I 
DCA 
1SZ 
HLT 
JMP I 


TAD 
DCA I 
JMp I 


@ 

"4 

g 
VBACKG 
HANG 
IFNZRO 


PAGE 


/ALWAYS CALLED WITH INTERRUPTS OFF! 
HANG /GET POINTER TO UNHANGING LOCATION 
UNHANG 

/GET FIELD CALLED FROM 
HCIDF@ 
HNGCDF 
@ 
CJMP RESTRT /CHANGE THE “JMP DISMIS” 
UNHANG /TO A "JMP RESTRT™ 
BACKLK 


/SAVE FOR RETURN 


BACKAC /SET UP BACKGROUND AC AND LINK 


BACKPC /INITIATE BACKGROUND 


THE HANG CONDITION HAS GONE AWAY 


JMPOIS 
UNHANG 
INTAC 

BACKAC 
INTLNK 
BACKLK 


/RESTORE THE UNHANG LOCATION 


/SUSPEND THE BACKGROUND 


"7 
BACKPC 


(70 
HCIDFS 
BAKCIF 
MCDF /*K* OK SINCE BACKGROUND DOESN'T 
BAKCDF 
HANG 
HANG /INTERRUPTS ARE OFF - RETURN 
JMPDIS /IN CASE WE WERE HUNG, WE DON'T 
UNHANG /TO GET “UNHUNG™ OUT OF THE ERROR 
CKILFPP /KILL FPP AND GO TO EXIT OR ERROR 


VHANG=3524 <e- CHANGE LOADERI> 


The FRTS /P option provides a mechanism whereby the core image gener- 
ated from a FORTRAN program may be punched onto paper tape in binary 
loader format. This permits the loader image to be executed ona 
hardware configuration that does not include mass-storage devices. 

To use the /P option, specify /P to FRTS and assign a device or file 
as FORTRAN I/O unit 9. Assigning the paper tape punch as unit 9 
causes the image to be punched out directly; however, it may be de- 
Sirable to direct the binary output to an intermediate file for later 
transfer to paper tape via OS/9 PIP. In any event, FRTS returns to 


the monitor once the core image has been transferred. 


The output file is a binary image of memory locations S9PPF to Y7577 
and 19898 up to the highest location used by the FORTRAN load. The 
content of each field is punched separately with its own checksum 


and leader/trailer. 


With the BIN loader resident in field 9, load the binary tape produced 
under the /P option by reading each segment separately and verifying 
the checksum as each memory field is loaded. When all segments have 
n read into memory, start execution at location #208. The 
following restrictions apply: 


1. OS/8 device handlers which have been assigned FORTRAN I/0 
unit numbers are not necessarily punched out. For this 
reason, I/O unit assignments other than in the form /n=m 
should be avoided. 


2. With respect to the presence of an FPP and/or EAE, the con- 
figuration on which the image is punched must be identical 
to the configuration on which it is to be run. If the 
punching configuration contains hardware that is absent from 
the target configuration, this hardware must be disabled 
under FRTS. If the target configuration contains hardware 
that is absent from the punching configuration, the extraneous 
hardware will not be used. 


3. The statements STOP and CALL EXIT cause a core load produced 
under the /P option to halt. Any fatal error fiagged during 
punching or execution causes error traceback followed by a 
halt. Do not press CONTinue in response to either of these 
machine halts. 


4-21 


A FORTRAN IV program is terminated in one of three ways: 


1. 


2% 


3% 


A fatal error condition is flagged (CTRL/B) is processed as 
a fatal error. 


CTRL/C is recognized, or the CPU is halted and re-started in 
07600. 


A STOP, CALL EXIT, or (under RALF) JSR #EXIT statement is 
executed. 


The sequence of events that results in program termination proceeds as 


follows: 


STOP 


casa e CTRL/C CALL EXIT e 
JSR #EXIT 


PRINT 
TRACEBACK 


SIMULATE 

EXECUTE IOF END FILE ON 
ANY OPEN 
FILES 


LET I/O DE- 
VICE HANDLER 


PROCESS tC 


JMP 07605 


Location 07605 traps back to FRTS 


At point A, FRTS executes the following operations. 


Read termination routine into memory. 
Read OS/8 field 0 resident from block 37 of SYS. 
Jump into termination routine at location 17400. 


Restore normal content of locations 07600 and 07605 (in OS/8 
resident). 


If configuration is an in-core TD8E DECtape system, restore 
second part of TD8E handler from n7600 to 27600. 


Wait for TTY to finish all pending I/O. If BATCH is running, 
print LF on TTY and LPT. 


If normal termination flag is set, close any output files 
that were opened by the FRTS loader. 


Return to OS/8 monitor via location 07605. 


/FORTRAN 4 RUNTIME SYSTEM - RL 


86690 
86616 


ALLY? 
WOOF 


86628 
06621 
86622 
8§6235 
86624 


86625 
B6626 
86627 
26638 
96631 
86632 
86633 
B6654 
86655 
86636 
86637 
B66 46 
86641 
866 42 
86643 
96644 
88645 
B66 46 
O66 47 
36659 
6651 
86652 
86653 
B6654 
@6655 
86656 
@6657 
6666 
86661 
86662 
86663 
@6664 


669d 


B08 
7168 
8202 
7248 
1844 
5844 
4542 
5617 


A4AT7TT 
74138 
4776 
4394 
1644 
3844 
3304 
3854 
1245 
765 
5844 
4334 
1856 
3057 
4334 
1954 
SB4 

1304 
5845 
1945 
7804 
7718 
4217 
1853 
71718 
2846 
9265 
2845 
1845 
71518 
5775 
7208 


FPPKG= . 
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/FOR EAE OVERLAY 


/23-BIT FLOATING PT INTERPRETER 
/WeJe CLOGHER, MODIFIED BY R.LARY FOR FORTRAN 


LPBUF2, ZBLOCK 16 
LPBUFS 

ALIBMP, @ 
STA 
TAD ACX 
DCA ACX 
JMS I {CALI 
JMP I ALIBMP 

/FLOATING MULTIPLY-DOES 

DDMPY, JMS I CDARGET 
SKP 

FFMPY, JMS I CARGET 
JMs MDSET 
TAD ACX 
DCA ACK 
DCA MDSET 
DCA AC2 
TAD ACH 
SNA CLA 
DCA ACX 
JMs MP2 4 
TAD OPH 
DCA OPL 
JMs MP2 4 
TAD AC2 
DCA ACL 
TAD MDSET 
DCA ACH 
TAD ACH 
RAL 
SPA CLA 
JMs ALI BMP 
TAD AC] 
SPA CLA 
1SZ ACL 
JMP MDONE 
1SZ ACH 
TAD ACH 
SPA 
JMP I (SHRI 
CLA 


2 24Xi2@ BIT MULTIPLIES 


/GET OPERAND 

/SET UP FOR MPY-OPX IN AC ON RETN. 
/DO EXPONENT ADDITION 

/STORE FINAL EXPONENT 

/ZERO TEM STORAGE FOR MPY ROUTINE 


/1S FAC=8? 
/YES@-ZERO EXPONENT 


/NO-MULTIPLY FAC BY LOW ORDER OPR. 
/NOW MULTIPLY FAC BY HI ORDER MULT 


/STORE RESULT BACK IN FAC 
/LOW ORDER 
/HIGH ORDER 


/DO WE NEED TO NORMALIZE? 


/YES-DO IT FAST 


/CRECK OVERFLOW WORD 
/HIGH BIT ON - ROUND RESULT 


/LOW ORDER OVERFLOWED - INCREMENT 


/CHECK FOR OVERFLOW TO 4888 8280 
/WE HANDLE A SIMILIAR CASE IN 


/FORTRAN 4 RUNTIME SYSTEM - R.L 


86665 
GE666 
B6667 
OS670 
06671 
W6672 
86673 
@S674 
@6675 
O6676 
06677 
86762 
OS701 
G67 82 
26783 


/FORTRAN 4 RUNTIME SYSTEM - R.L 


BS704 
26785 
26786 
B6707 
86710 
@6711 
26712 
@6713 
O6714 
86715 
“6716 
86717 
86720 
86721 
86722 
06723 
06724 
86725 
86726 
B6727T 
06750 
66751 
867352 
06735 


3853 
2533 
7418 
4543 
1845 
7652 
5844 
1621 
1740 
1044 
7456 
5476 
71848 
454] 
D476 


Q002 
7344 
5333 
1856 
1780 
5314 
ATTA 
2333 
1057 
T1084 
3057 
1856 
7004 
3056 
$853 
1945 
7788 
5531 

45435 
2555 
7000 
1855 
374 
QOGB 


MDONE, DCA 
ISZ 
SKP 
JMS I 
TAD 
SNA CLA 
DCA 
TAD 
SMA SZA 
TAD 
SNA 
JMP I 
CMA 
JMS I 
JMP I 
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AC] /ZERO OVERFLOW WDCDO I NEED THIS??? 
MSIGN /SHOULD RESULT BE NEGATIVE? 

/NO 
[FFNEG /YES-NEGATE IT 
ACH 

/A ZERO AC MEANS A ZERO EXPONENT 
ACX 
DFLG 
CLA /D.P. INTEGER MODE? 
ACX /WITH ACX LESS THAN @? 
FPNXT /NO - RETURN 
CACSR /UN-NORMALIZE RESULT 
FPNXT /RETURN 

PAL8=-V8 PAGE 8@ 


/MDSET-SETS UP SIGNS FOR MULTIPLY AND DIVIDE 

7ALSO SHIFTS OPERAND ONE BIT TO THE LEFT. 

EXIT WITH EXPONENT OF OPERAND IN AC FOR EXPONENT 
/CALCULATION-CALLED WITH ADDRESS OF OPERAND IN AC AND 
/DATA FIELD SET PROPERLY FOR OPERAND. 


MDSET, @ 


CLA CLL CMA RAL /SET SIGN CHECK TO -2 


DCA 
TAD 
Sma 
JMP 
JMS I 
1SZ 
TAD 
CLL 
DCA 
TAD 
RAL 
DCA 
DCA 
TAD 
SMA 
JMP 
Jms 1 
1SZ 
NOP 

LEV, TAD 
JMp I 

MSIGN, @ 


MSIGN 
OPH 
CLA 
ot3 
COPNEG 
MSIGN 
OPL 
RAL 
OPL 
OPH 


OPH 
AC} 
ACH 
CLA 
LEV 
(FFNEG 
MSIGN 


OPX 
MDSET 


/1S OPERAND NEGATIVE? 


/NO 

/YES-NEGATE IT 

/BUMP SIGN CHECK 

/AND SHIFT OPERAND LEFT ONE BIT 


/CLR. OVERFLOW WORF OF FAC 
/1S FAC NEGATIVE 


/NO-GO ON 
/YES-NEGATE IT 
/BUMP SIGN CHECK 
/MAY SKIP 


/EXIT WITH OPERAND EXPONENT IN AC 


/FORTRAN 4 RUNTIME SYSTEM - RoL PAL8-V8 PAGE 81 
/24 BIT BY 12 BIT MULTIPLY. MULTIPLIER IS IN OPL 
/MULTIPLICAND IS IN ACK AND ACL 
/RESULT LEFT IN MDSET,AC2, AND ACI 


86734 8208 MP24, Q 


06735 1373 TAD C-14 /SET UP i2 BIT COUNTER 
86736 3855 DCA OPX 
86737 1857 TAD OPL /1S MULTIPLIER=@7? 
O6748 7448 SZA 
6741 5345 JMP MPLP 1 /NO-GO ON 
6742 3853 DCA AC] /YES-INSURE RESULT=8 
86743 57354 JMP I MP2 4 /RETURN 
66744 1657 MPLP, TAD OPL /SHIFT A BIT OUT OF LOW ORDER 
88745 7218 MPLPI, RAR /OF MULTIPLIER AND INTO LINK 
@6746 3057 DCA OPL 
6747 7429 SNL /WAS IT A 1? 
06758 5356 JMP MPLP2 “NO - @ - JUST SHIFT PARTIAL PROD 
6751 1054 TAD AC2 /YES“ADD MULTIPLICAND TO PARTIAL 
@6752 1846 TAD ACL /LOW ORDER 
@6753 3854 DCA AC2 
@6754 7624 CML RAL /*K* NOTE THE "SNL" 5 WORDS BACK! 
@6755 1645 TAD ACH /HI ORDER 
G6756 1384 MPLP2, TAD MDSET 
C6757 7819 RAR /NOW SHIFT PARTIAL PROD. RIGHT ! 
BETEQ 3304 DCA NMDSET 
B6761 1054 TAD AC2 
6762 T1818 RAR 
@6763 30854 DCA AC2 
6764 1853 TAD ACI 
B6765 7616 RAR /OVERFLOW TO ACI 
@6766 3853 DCA AC] 
O6767 2955 ISZ OPX /DONE ALL 12 MULTIPLIER BITS? 
86779 5344 JMP MP LP /NO-GO ON 
O6771 5734 JMP I MP2 4 /YES-RETURN 
@6773 7764 
Q6774 7283 
W6775 T7118 
26776 6514 
O6777 6462 
71882 PAGE 
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/DIVIDE-BY-ZERO ROUTINE - MUST BE AT BEGINNING OF PAGE 


07000 2035 DBAD, 182 FATAL /DIVIDE BY @ NON-FATAL 

97001 4434 JmS I ERR /GIVE ERROR MSG 

87202 1286 TAD BAD | | 

87003 3044 DCA ACX /RETURN A VERY LARGE POSITIVE NUM 
07624 7332 AC220 

97085 5325 JMP FD 


07206 
O70O07 
87812 
@7811 
@7812 
@7813 
O7014 
W7215 
07816 
Q7017 
67028 
27821 
07822 
87023 
07024 
07825 
B7T226 
879827 
07058 


87631 
87852 
878335 
@7834 
87035 
07036 
87837 
7848 
87041 
87042 
07843 
07844 
87645 
@7246 
B7GA4T 
87850 
@7@51 
87052 
07053 
27854 
@7055 
O7O856 


/FORTRAN 4 RUNTIME SYSTEM - RwL 


Q7857 
07260 
07861 
07262 
078635 
B7264 
07865 
BT066 
@7067 
B727B 
27@71 


A4ATT7 
7418 
4776 
4ATT5 
7041 

1044 
3844 
1956 
7141 

S856 
4231 

1246 
5853 
1857 
7656 
9527 
1374 
5251 
5267 


ZOOS 
1845 
1856 
7636 
5260 
1374 
3854 
3251 
1045 
7804 
3845 
1845 
1856 
7438 
3845 
7280 
1846 
7004 
3846 
2054 
9241 
3631 


3857 
1654 
71429 
5265 
718@ 
1@46 
7018 
3854 
1057 
7@18 
2251 


/FLOATING DIVIDE - USES DIVIDE-AND-CORRECT METHOD 


DDDIV, 


FFDIV, 


/DIVIDE 


DV24, 


DV2 , 


DVI, 


JMS I 
SKP 

JMS I 
JMS I 
CMA 

TAD 

DCA 

TAD 

CLL CMA 
DCA 

JMS 

TAD 

DCA 

TAD 

SNA CLA 
JMP 

TAD 

DCA 

JMP 


ROUTINE 


g 
TAD 
TAD 
evan 
JMP 
TAD 
DCA 
JMP 
TAD 
RAL 
DCA 
TAD 
TAD 
SZL 
DCA 
CLA 
TAD 
RAL 
DCA 
ISZ 
JMP 
JP I 


(DARGET 


CARGET 
CMDSET 
IAC 
ACX 
ACX 
OPH 
IAC 
OPH 
DV24 
ACL 
AC 1 
OPL 


DVL2 
C215 
DV2 4 
DVLP 1 


/GET OPERAND 

/GO SET UP FOR DIVIDE-OPX IN AC 
/NEGATE EXP. OF OPERAND 

/ADD EXP OF FAC 

/STORE AS FINAL EXPONENT 
/NEGATE HI ORDER OP, FOR USE 
7AS DIVISOR 


/CALL DIV.--CACH+ACL)/OPH 
/SAVE QUOT. FOR LATER 


/AVOID MULTIPLYING BY @ 


“SET COUNTER FOR 12 BIT MULTIPLY 
/TO MULTIPLY QUOT. OF DIV. BY 
/LOW ORDER OF OPERAND COPL) 


- CACH,ACL)/OPH = ACL REMAINDER REM 


ACH 
OPH 
CLA 
DBAD 
<b) 
AC2 
DV! 
ACH 


ACH 


ACH 
OPH 


ACH 
ACL 
ACL 
AC2 


DV2 
DV24 


/CHECK THAT DIVISOR IS .GT. 
/DIVISOR IN OPH CNEGATIVE) 
/1S IT? 

/NO-DIVIDE OVERFLOW 
/YES*SET UP 12 BIT LOOP 


/GO BEGIN DIVIDE 
/CONTINUE SHIFT OF FAC LEFT 


/RESTORE HI ORDER 

/NOW SUBTRACT DIVISOR FROM HI ORDER 
/DIVIDEND 

/GOOD SUBTRACT? 

/YES-RESTORE HI DIVIDEND 

/NO-DON'T RESTORE--OPH.GT.ACH 
/SHIFT FAC LEFT 1 BIT=ALSO SHIFT 

/1 BIT OF QUOT. INTO LOW ORD OF ACL 


/DONE 12 BITS OF QUOT? 
/NO-GO ON 
/YES@RETN W/AC2=2 
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/DIVIDE ROUTINE CONTINUED 


MPIZL, 


DCA 
TAD 
SNL 
JMP 
CLL 
TAD 
RAR 
DCA 
TAD 
RAR 
ISZ 


OPL 
AC2 


/STORE BACK MULTIPLIET 

/GET PRODUCT SO FAR 

/WAS MULTIPLIER BIT A 1? 

/NO-JUST SHIFT THE PARTIAL PRODUCT 
/YES-CLEAR LINK AND ADD MULTIPLICA 
/TO PARTIAL PRODUCT 

/SHIFT PARTIAL PRODUCT-THIS IS HI 
/RESULT-STORE BACK 

“SHIFT A BIT OUT OF MULTIPLIER 
/AND A BIT OR RESLT. INTO IT CLO 
/DONE ALL BITS? 


Q7@72 5257 JMP MP12L /NO-LOOP BACK 


G7@73 7141 CLL CIA /YES-LOW ORDER PROD. OF QUOT. X 
Q@7874 3846 DCA ACL /NEGATE AND STORE 

07075 71824 CML RAL /PROPAGATE CARRY 

O@7Z76 1654 TAD AC2 /NEGATE HI ORDER PRODUCT 

@7@77 7161 STL CIA 

7102 1845 TAD ACH /COMPARE WITH REMAINDER OF FIRST 
67181 7438 SEL /WELL? 

87182 5331 JiMP DVOPS /GREATER THAN REM.-ADJUST QUOT OF 
@7103 3845 CA ACH /OK - DO CREM = (Q*OPL)) / OPH 
@7184 4231 DVLS, JMS DV24 /DIVIDE BY OPH CHI ORDER OPERAND) 
87105 1653 DVLI, TAD AC] /GET QUOT. OF FIRST DIV. 

87186 7588 SMA /IF HI ORDER BIT SET-MUST SHIFT 1 
@7T187 5325 JMP FD /NO-ITS NORMALIZED=-DONE 

O711@ 71808 SHRI, CLL 

B7111 2846 ISZ ACL /ROUND AND SHIFT RIGHT ONE 

7112 T7418 SKP 

@7113 73821 IAC /DOUBLE PRECISION INCREMENT 
97114 7612 RAR 

7115 3845 DCA ACH /STORE IN FAC 

O7116 1246 TAD ACL /SHIFT LOW ORDER RIGHT 

®7117 7818 RAR 

97129 3846 DCA ACL /STORE BACK 

67121 2844 I5Z ACX /BUMP EXPONENT 

87122 1388 NOP 

87123 1645 TAD ACH 

B7124 5386 JMP DVLI+1 /IF FRACT WAS 77777777 WE MUST 
O7125 3645 FD, DCA ACH /STORE HIGH ORDER RESULT 

B7iI26 57735 JMP I (MDONE /GO LEAVE DIVIDE 

07127 3846 DVL2, DCA ACL /COME HERE IF LOW-ORDER QUO=9 
@713@ 5384 JiMP DVL3 /SAVE SOME TIME 

/FORTRAN 4 RUNTIME SYSTEM - ReL PAL&-V8 PAGE 84 


/ROUTINE TO ADJUST QUOTINET OF FIRST DIVIDE (MAYBE) WHEN 
/REMAINDER OF THE FIRST DIVIDE IS LESS THAN QUOT*OPL 


@7131 7841 DVOPS, CMA IAC /NEGATE AND STORE REVISED REMAINDER 
87132 S245 DCA ACH 
7133 7168 CLL 
O@7154 1856 TAD OPH 
87155 1845 TAD ACh /WATCH FOR OVERFLOW 
art Levy MP DVOP 1 /OVERFLOW-DON'T ADJUST QUOT. OF 1 
@7148 $845 DCA ACH /NO OVERFLOW-STORE NEW REM. 
@7141 7848 CMA /SUBTRACT 1 FROM QUOT OF 
G7142 1853 TAD AC] /FIRST DIVIDE 
87145 3953 DCA AC] 
87144 7348 DVOPI1, CLA CLL 3 _ 
67145 1045 TAD ACH /GET HI ORD OF REMAINDER 
7146 7458 SNA /1S IT ZERO? 
@7147 3946 DVOP2, DCA ACL /YES“MAKE WHOLE THING ZERO 
CA ACH 
Arist 4231 is DV24 /DIVIDE EXTENDED REM. BY HI DIVISOR 
@7152 1646 TAD ACL /NEGATE THE RESULT ; 
7153 TiAl CLL CMA IAC 
Bice ni se F QUOT. IS NON-ZERO, SUBTRACT 
if SHEL /1 UVie 2 NON@"ZERU, SUdINAY: 
orice 1240 CMA 7ONE FROM HIGH ORDER QUOT. 
@7157 5395 JiiP DVLI /GO To IT 


671690 @2080 LPBUFS, ZBLOCK le 
B7172 T7316 LPBUF4 
87175 6665 

87174 7763 

O@7175 6704 

@7176 6514 

@7177 6468 

7280 PAGE 


/FORTRAN 4 RUNTIME SYSTEM - R.L PAL8&-V8 PAGE 85 
/"NRMFAC™ AND “OPNEG™ MUST BE AT @ AND 3 ON PAGE 


87206 3853 NRMFAC, DCA AC1 /KILL OVERFLOW BIT 
97201 4271 JMS FF NOR 

7202 5476 JMP I FPNXT 

87203 @080@ OPNEG, @ /ROUTINE TO NEGATE OPERAND 
87204 1657 TAD OPL /GET LOW ORDER 

Q@7285 7141 CLL CMA IAC /NEGATE AND STORE BACK 
B7Z2@6 $857 DCA OPL 

Q7207T 7824 CML RAL /PROPAGATE CARRY 

87218 1056 TAD OPH /GET HI ORDER 

87211 7141 CLL CMA IAC /NEGATE AND STORE BACK 
87212 30856 DCA OPH 

87213 5603 JMP I OP NEG 


/ 
/FLOATING SUBTRACT AND ADD 
/ 
@7214 4777 FFSUB, JMS I CARGET /PICK UO THE OP. 


@7215 4203 JMS OPNEG /NEGATE OPERAND 

@7216 7418 SKP 

Q7217 A777 FFADD, JMS I CARGET /PICK UP OPERAND 

87220 1856 TAD OPH 71S OPERAND = @ 

@7221 7858 SNA CLA 

@7222 5476 JMP I FPNXT /YES@DONE 

@7225 1645 TAD ACH /NO-IS FAC=98? 

@7224 7659 SNA CLA 

@7225 5256 JMP DOADD /YES-DO ADD 

07226 1844 TAD ACK /NO-DO EXPONENT CALCULATION 
7227 7141 CLL CMA IAC 

07230 1655 TAD OPX 

87251 7548 SMA SZA /WHICH EXP. GREATER? 

87232 5243 JMP FACR /OPERANDS@SHIFT FAC 

87253 T7841 CMA IAC /FAC*S*SHIFT OPERAND=DIFFRNCE+1 
87254 4246 JMS OPSR 

872355 4541 JMS I CACSR /SHIFT FAC ONE PLACE RIGHT 
87236 1855 DOADD, TAD OP X /SET EXPONENT OF RESULT 
87237 3844 DCA ACX 

@7240 4537 JMS I COADD /D0 THE ADDITION 

7241 4271 Js FFNOR /NORMALIZE RESULT 

@7242 5ATE JMP I FPNXT /RETURN 

@72453 4541 FACR, JMS I (CACSR /SHIFT FAC = DIFF.+1} 

@7244 4246 JMS OPSR “SHIFT OPR. |! PLACE 

7245 5236 JP DOADD /D0 ADDITION 


/FORTRAN 4 RUNTIME SYSTEM - RL PAL8&-V8 PAGE 8& 
/OPERAND SHIFT RIGHT-ENTER WITH POSITIVE COUNT-1 IN AC 


87246 6880 OPSR, Q 


27247 7640 CMA /- (COUNT+1) TO SHIFT COUNTER 
87258 3052 DCA ACO 
07251 1256 LOP2, TAD OPH /GET SIGN BIT 
97252 7120 CLL /TO LINK 
87253 7510 SPA 
07254 7022 CML /WITH HI MANTISSA IN AC 
27255 7018 RAR /SHIFT IT RIGHT, PROPAGATING SIGN 
87256 3056 DCA OPH /STORE BACK 
07257 1057 TAD OPL 
B726@ 7012 RAR 
67261 3057 DCA OPL /STORE LO ORDER BACK 
07262 2055 ISZ OP X /INCREMENT EXPONENT 
87263 7000 NOP 
87264 2052 ISZ ACO /DONE ALL SHIFTS? 
87265 5251 JMP LOP2 /NO-LOOP 
87266 7212 RAR /SAVE 1 BIT OF OVERFLOW 
87267 3854 DCA AC2 /IN AC2 
27270 5646 JMP I OPSR YES-RETN. 
07271 @009 FFNOR, @ /ROUTINE TO NORMALIZE THE FAC 
87272 1945 TAD ACH /GET THE HI ORDER MANTISSA 
@7273 7452 SNA /ZERO? 
07274 1646 TAD ACL /YES-HOW ABOUT LOW? 
07275 7456 SNA 
87276 10853 TAD AC] /LOW=G, IS OVRFLO BIT ON? 
@7277 765@ SNA CLA 
97300 5313 JmP ZEXP /#=O-ZERO EXPONENT 
97381 7332 NORMLP, CLA CLL CML RTR /NOT O-MAKE A 200 IN AC 
07322 1045 TAD ACH /ADD HI ORDER MANTISSA 
37303 7440 SZA /HI ORDER = 6299 
27394 5307 JMP +3 /NO-CHECK LEFT MOST DIGIT 
87305 1046 TAD ACL /YES-620@ OK IF LOW=9 
37306 7649 SZA CLA 
87307 7710 SPA CLA /24354,5,ARE LEGAL LEFT MOST DIGS. 
Q731G 5314 JMP FFNORR /FOR NORMALIZED #-(+200024,5,6,7) 
7311 4534 JMS I {ALIBMP /SHIFT AC LEFT AND BUMP ACX DOWN 
87312 5301 JMP NORMLP /GO BACK AND SEE IF NORMALIZED 
Q7313 3044 ZEXP, DCA ACX 
Q7314 3053 FFNORR, DCA ACI /DONE W/NORMALIZE - CLEAR ACI 
07315 5671 JMP I FFNOR /RETURN 
97316 @@00 LPBUF4, ZBLOCK 6¢ 
27376 7486 LPBUFE 
07377 6514 
7420 PAGE 


CHAPTER 5 


The binary output of an assembly under RALF is called a RALF 

module. Every RALF module consists of an External Symbol Dictionary 
(or ESD) and associated text. The ESD lists all global symbols 
defined in the assembly, while the text contains the actual binary 


output along with relocation data. 


There are three major classes of global symbols. Entry points are 
global symbols defined in a module and referenced by code in other 
modules. Thus, entry points include the names of all modules and 

the names of all globally callable subroutines within modules. 
Externs are global symbols that are referenced in a module but not 
defined in that module. For example, the entry point of module A 
would appear as an extern if referenced in module B. The COMMON area 
comprises a third class of global symbols including all global 


symbols which define COMMON. 


A FORTRAN IV library is a specially formatted file, created with 
LIBRA, consisting of a library catalog (which lists section names 
and entry points of iibrary modules) and a set of RALF modules, 
perhaps interspersed with empty subfiles. The loader uses one 

such library, specified by the user, to resolve externs while 
building a loader image file. The general structure of a FORTRAN IV 


library is: 


| 
CATALOG | MODULE FREE | MODULE 


AREA 


LIBRA is a very simple program, basically a file-to-file copy inside 
several nested loops. The outer loop begins at START, and calls the 
command decoder for specification of the library and input files. If 
no library is specified, the previous library name is used (initially 
this is SYS:FORLIB.RL). If a new name is given, but no extension is 
specified, .RL is forced. A check is made to verify that the spec- 
ified library is on a file-structured device, and the handler is 


FETCHed. 


At ZTEST, the /Z switch is tested. If it was set, control passes to 
NEWLIB to create a new library. Otherwise, an attempt is made to find 
an old library of the specified name on the device. If it fails, 
control passes to NEWLIB. Otherwise, the catalog of the old library 
is read and scanned to determine the starting block of available 
Space. This is stored at LAVAIL. Control then passes to GETINF to 


begin reading input files. 


If /Z was set, or the specified library isn't found, a new library 

is entered at NEWLIB, and an empty catalog is written. Control passes 
to GETINF. There, a check is made to determine whether input is 
presently coming from another library. If it is, control passes to 
INLIB to obtain the next module from the library. Otherwise, the 
next input file is obtained from the command decoder area in field l, 
and if one exists, control passes to FTCHIN to load the handler. If 
there is none, the /C switch is tested. If it is not set, control 

is passed to LCLOSE to close the library. If it is set, however, 

the command decoder is recalled to obtain a continuation of the 
preceding input line, and control returns to NXTINF to look in the 


command decoder area. 


At FTCHIN, the unit, starting block, and length of the next input 

file are obtained from the command decoder area, the appropriate 
device handler is fetched, and at LUKMOD, the input file is read to 
ensure that it is either a module or a library. If a library, control 
passes to GOTLIB, which sets INLSW and goes to INLIB to obtain the 
first module from the library. Otherwise, the length is checked 

inst the available length in the library, to ensure that this 


module can be fit in, and control goes to NXTEBK to read the ESD. 


At INLIB, the catalog of the library being input is read, and scanned 
until a module is found with a starting block greater than the start- 
ing block of the last input module (in the case of the first module 
in a library, MODBLK, which normally contains the starting biock of 
a module, contains the starting block of the library, so this scan 
yields the starting block of the first module in the library). When 
the next module has been found, control returns to LUKMOD to check 


the length of the module against the available length in the library. 


At NXTEBK, the end of the input module is scanned for entry point and 
section names. Whenever one is found, the catalog of the output 
library is scanned for a matching name. If a match is found, control 
passes to GOTMAT, which prints the duplicated name, and if the /I 
switch is set, asks the operator which name to keep. If he types N, 
for new, control passes to DLETO to delete the old name. Otherwise, 
control is passed to ESDLND to find the next entry point or section 
name in the input. If /I is not set, /Ris tested. If it is not set, 
control is passed to ESDLND. If it is, control flows into DELTO, 


where the old name is cleared, and the rest of the catalog is scanned 


to find the first available name slot. Control then passes to INSERT, 


If no match was found, the /I switch is tested. If it was set, the 
operator is asked whether to include the name. If he types, N, for 
no, control is passed to ESDLND. Otherwise, or if /I was not set, a 
pointer is set up for the new name, and control passes to INSERT, 


where the new name is added to the catalog. 


When the entire ESD has been scanned, INCLUD is tested to determine 
whether any name has been included in the catalog, and assuming at 
least one has, the module is copied into the library, and LAVAIL is 
updated to indicate the next available block in the library. Control 


returns to GETINF for another module. 


LCLOSE receives control whenever the end of the input file string is 
reached and /C is not set. Here, any remaining changes in the library 
catalog are written, and if a new library was entered, it is closed. 
Control passes to CATLST, to create a catalog listing. The second 
output file, if any was specified, is opened, a title is output to it, 
and at PRCAT, the entire contents of the catalog are listed. When 
this process is complete, the output file is closed, and control 


returns to start for more command decoder input. 


5-4 


User-coded modules may be added to the system library or incorporated 
in a new library provided that entry points, variable storage alloca- 
tions, calling sequences, error conditions and the like are handled 


with care. 


Every library module must have a unique section (and entry) name(s). 
The library supplied by DEC uses the character # before names where 
duplication in the FORTRAN program may be possible. Note that this 
character is acceptable to RALF, but is illegal in a FORTRAN source. 
If more than one entry is required to the routine, they should be 
listed as such using the pseudo-op ENTRY before they are encountered 
as tags in the code. Thus, if a double precision tangent routine is 
being written, it may be helpful to have an entry for a double pre- 


cision co-tangent calculation also. Appropriate code would be: 


SECT DTAN 
JA #DTAN 
ENTRY DCOT 


When routines will handle double precision or complex values, allocate 
six words for their storage. Such routines can switch between the 
STARTF (3 word format) and STARTE (6 word format) pseudo-ops as re- 
quired, being careful to define variables of the proper length to 


keep track of temporary locations. 


All user-written library routines are called by a JSR in STARTF mode. 


Depending on the type of function, 


the routine must be coded to exit 


as follows in order to return the result to the program: 


Single precision 
(integer, real and logical) 


FLDA ANSWER 
JA RETURN 


Double precision: 


FLDA ANSWER 
JA RETURN 


Complex: 


EXTERN #CAC 
STARTE 

FLDA ANSWER 
FSTA #CAC 
JA RETURN 


Routines should conform to the FPP 
example of that sequence follows: 
SECT DTAN 


JA #DTAN 
TEXT +DTAN + 


DTANXR, SETX XRDTAN 


SETB BPDTAN 


F 9.9 
F 9.9 


ORG 10*3+BPDTAN 


BPDTAN, 
XRDTAN , 


FNOP 

JA DTANXR 
g 

JA . 

BASE @ 
STARTD 
FLDA 10*3 
FSTA DTNRTN 


DINRIN, 


#DTAN, 


Answer in AC in STARTF mode 


/In STARTF mode 
/3 word result 
Answer in AC in STARTE mode 


/In STARTE mode 
/6 word result 


Answer in location #CAC in 
STARTE mode 


/Real part in first 3 words 
/Imaginary in last 3 words 
/EXit in STARTE mode 

7/6 word result 


FORTRAN calling sequence. An 


/Sector name 

/Jump to Start of Function 
7/6 characters for trace 
/back feature must be 
/immediately before index 
/register assignment. 
/This tag referenced when 
/returning to reset base 
/page and index registers 
/if this routine called. 


/3 words each 

/These locations may be 
fused for temporary storage 
7/If this routine is called, 
/will set up return to it. 


or 


/Return to calling program 

/Still on caller's base page 
/Start of subroutine 

/Get jump to caller's return jump 
/Save for return from this routine 


FLDA 9 /Get next location in caller's 
/routine (pointer to argument list) 


SETX XRDTAN /Change index registers to this 
/routine's 

SETB BPDTAN /Change base page to this routine's 

BASE BPDTAN /Change base page to this routine's 

FSTA TEMP /Save pointer 

LDX 1,1 /Set up XRL 

FLDA% TEMP,1 /Get address of argument list 

FSTA TEMP /Save it 

STARTE /A double precision routine 

FLDA% TEMP /Get variable 

FSTA TEMP /Save variable 


: /Calculate result 


FLDA ANSWER /Load answer 
JA DTNRTN /EXit 


The following conventions must be observed to return to the calling 
program at the correct location, to permit the error trace back 
feature to function properly, and to preserve index registers and 


base page integrity. 


Locations @ and 39 of the called (user-coded) program are determined 


hy 
+ 


a in the form ORG 10*3+BPAGE which must be followed by 
a two-word jump to the index register and base page assignment in- 
structions JA BPXR. In the above example, the code is: 

ORG 10*3+BPDATN 

FNOP 

JA DTANXR 
By saving the contents of location 30 of the calling program (FLDA 
10*3,FSTA RETURN) for the return exit, the called program executes 
(when control is returned to it) a JA BPXR to its base page and index 
register assignment statement. In the calling program this resets 
the index registers and base page and then returns to execute the 


instruction in the calling program. In the tangent example above, 


the code is: 


FLDA 10*3 
FSTA DTNRTN 
which creates the instruction 
JA XXX 
at the tag DINRTN, where xxx is the location in the calling routine 


whose function corresponds to DTANXR in DTAN, 


When called, the routine must assign its own base page and index 
registers (SETX XROWN, SETB BPOWN). If arguments are to be passed 
to the called routine, a scheme such as illustrated above permits 
any number of arguments to be passed from the calling program and 
saved on the base page of the called program, in this case just 


two arguments. 


The corresponding code for the calling program (as created by the 


compiler) is: 


EXTERN DTAN 


JSR DTAN 

JA .+4 /Jump past all arguments 

JA A /Argument 

FSTA Q /Save result in some variable 


The FORTRAN for such code is: 


Q = DTAN (A) 


The calling sequence is also discussed in Chapter 2, 


To permit the error trace back feature to function properly, a TEXT 


statement followed by a six alphanumeric character name is required 


immediately before the index register and base page assignment 


Statements. Thus, if the cotangent routine includes a JSR TAN and an 


unacceptable argument is passed to the tangent function, the trace 
back indicates the location of the problem by a sequence such as: 
DIVO MAIN 
ARGUMENT 
7777 SIN 
0000 TAN 
0000 COT 
0007 MAIN 
(Line numbers are not relevant in RALF modules such as TAN and SIN: 


they are meaningful only in FORTRAN source programs.) 


A new library routine may call other new or existing library routines 
as part of its function, as well as the error handling function of 
the run-time system. To invoke the error message program, code such 
as the following is required: 
EXTERN #ARGER 

MERROR, TRAP4 #ARGER 
Then any condition encountered in the program that is an error should 
jump to MERROR. For example, if an argument of <@ is illegal, it 
could be examined and handled as follows: 

FLDAS ARG2 


JLE MERROR /<@ error 
FSTA NEXT / Save non-zero value 


In this case, the TRAP4 #ARGER at MERROR will produce the message 


BAD ARG DTAN nnnn followed by traceback and program termination. 


If a new library routine would like to use an existing library routine, 
a JSR to that routine is required. The sequence for passing arguments 
is: 


EXTERN ATAN2 


JSR ATAN2 

JA -+6 /Execute upon exit from 
JA A /lst arg 

JA B j2nd arg 

FSTA ANSWER /Save answer 


The arguments must be referenced in the order expected by the called 
routine and must agree in number and type. The following routines 


can be used in this manner: 


ROUTINE ARGUMENTS PASSED 
AMOD Address of X then Y 
SQRT Address of X 
ALOG1O Address of X 
EXP Address of X 
SIN Address of X 
Cos Address of X 
TAN Address of X 
SIND Address of X 
COosD Address of X 
TAND Address of X 
ASIN Address of X 
ACOS Address of X 
ATAN Address of X 
ATAN2 Address of X then Y 
SINH Address of X 
COSH Address of X 
TANH Address of X 
DMOD Address of X then Y 
DSIGN Address of X then Y 
DSIN Address of X 
DLOG Address of X 
DSQRT Address of X 
DCOS Address of X 
DLOG1O Address of X 
DATAN2 Address of X then Y 
DATAN Address of X 
DEXP Address of X 
CMPLX Address of X 
CSIN Address of X 
CCOS Address of X 
REAL Address of X 
AIMAG Address of X 
CONJG Address of X 
CEXP Address of X 
CLOG Address of X 
CABS Address of X 
D4 


CSQORT Address of 


For real and double precision routines, the result is returned via 
the FAC (3 or 6 words, respectively). For complex routines, the 


result is returned in #CAC (6 words). 


requirements just discussed. 


condition exit. 


/ 
/ 


TAN 


/ 
/SUBROUTINE 


TANER, 
TANXR, 
BTIAN, 
XRTAN, 
TANI, 
TAN2, 


TANRTN, 


#TAN, 


SECT 
JA 


EXTERN 
cALgone 


TRAPA 


BASE 
STARTD 
FLDA 
FSTA 
FLDA 


erry 
OLLA 


SETB 
BASE 
LDX 
FSTA 
FLDAZ 
FSTA 
STARTF 
FLDA% 
JEQ 
FSTA 
EXTERN 
JSR 

JA 

JA 

JEQ 
FSTA 
EXTERN 


TART TT 


TANCX) 
TAN 
# TAN 


#ADNOCO 
TANUEAN 


#ARGER 
+TAN 
XRTAN 
BPTAN 


19+3+BPTAN 


TANXR 


4) 


10*3 
TANRIN 
4 


XRTAN 
BPTAN 
BPTAN 
1,1 
BPTAN 
BPTAN, 1 
BPTAN 


BP TAN 
TANRTN 
TANI 
COS 
COS 
+4 
TAN] 
TANER 
TAN2 
SIN 


CTA 
wil 


+4 
TANI 
TAN2 
TANRTN 


The TAN function calls two external 


/SECTION NAME 
/JUMP AROUND BASE PAGE 


/EXIT TO ERROR MESSAGE HANDLER 
/FOR ERROR TRACE BACK 
/START OF FORMAL CALLING SEQUENCE 


/START OF BASE PAGE 


/INDEX REGISTERS 
/LOCATIONS 21-42 OCTAL AVAILABLE 
/FOR USER STORAGE 


/SET UP FOR A RETURN 
/TO THIS ROUTINE 


/JUMP TO XR + RP ASSIGNMENT 


/SAVE RETURN JUMP 


/GET NEXT LOCATION 
7IN CALLING PROGRAM 
/SET UP FOR TAN'S INDEX REGS 


/SET UP FOR TAN‘S BP 


/GET ADDRESS OF X 


/GET X 
/IF @ RETURN NOW 
/SAVE FOR A SECOND 


/TAKE COS(X) 

/JUMP AROUND ARGUMENT LIST 
/REFERENCE TO PASSED ARGUMENT 
/COS=8, A NO-NO 

/SAVE IT 


/NOW TAKE SJNCKX) 

/JUMP AROUND ARGUMENT LIST 
/REFERENCE TO ARGUMENT 
/DIV BY COSC(X) 

/EXIT 


The library routine ONQI illustrates many of the same conventions. 
This listing may also prove valuable as a guide to interfacing with 


the run-time system. 


FIELD] ONQI /ROUTINE TO ADD A 
/HANDLER TO INTERRUPT SKIP CHAIN 
/PUT THIS CODE IN FIELD 1 


2 
JMP SETINT /SET UP INT INITIALLY 
ISZ ONQI /BUMP ARGUMENT POINTER 
ISZ INTQ+1 /BUMP INTERRUPT @ POINTER 
DCAZ INTQ+1 /STICK IOT ONTO INT Q 
TAD XSKP /FOLLOWED BY A SKIP 
ISZ INTQ+1 
DCAZ INTQ+1 /ONTO INT Q 
ISZ ONQI “SKIP FIRST WORD OF ADDR 
ISZ INTQ+1 

ONQISW, TADZ ONQI /GET INT HANDLER ADDRESS 
ISZ ONQI 
DCAZ INTADR+1 /ONTO ADDRESS STACK 
TAD INTADR+1 /NOW MAKE JMSZ 
AND LI77 
TAD L466 
DCAZ INTQ+1 /ONTO INT Q 
ISZ INTADR+1 
ISZ IQSIZE /ROOM FOR MORE? 
JMPZ ONQI /YES 
TAD ia | /NO, CLOSE OUT THE SUBR 
DCA ONQI+] 
JMPZ ONQI 

SETINT, TAD ONQISW 7/00 THIS PART ONLY ONCE 
DCA ONQI+1 
CDF 
TAD XSKP /FIX UP #INT 
DCAZ XINT+1 /PUT SKIP INST. FIRST 
ISZ XINT+1 
TAD INTQ+1 
DCAZ XINT+1 /GET ADDR. OF USER'S ROUTINE 
ISZ XINT+1 ADD TO INTERRUPT CALL 
TAD CIFCDF /GET FIELD INSTRUCTION 


/FIELD] SECTION INSURES ITS IN FIELD 1 
DCAZ XINT+1 
CIFCDF, CDF CIF 10 


JMP ONQI+1 /BACK TO ONQI 
EXTERN #INT 
XINT, ADDR #INT /POINTS TO INT RTN IN COMMON 
INTQ, ADDR IHANDL /MUST USE 15 BIT ADDRESS 
INTADR, ADDR IHADRS / : 
IQSIZE, -5 
XSKP,  SKP 
L177, (177 
L4600, 4600 
CDF CIF 
JMPZ IHANDL 
IHANDL, @ 
REPEAT 16 
JMP LHANDL-2 
IHADRS, 238303032 /CAN SET UP 1-5 DEVICES 


a 


=e 


ENTRY ONQB 
/ACCESS FROM OUTSIDE OF SECTION 
/ROUTINE TO SET UP AN IDLE JOB 


ONQB, 


JMP SETBAK 
TADZ ONQB 
ONQBSW, ISZ ONQB 
DCAZ BAKADR+1 
TAD BAKADR+t+i 
Sz BAKADR+1 
AND L177 
TAD L460 
1SZ BAKQ+1 
DCAZ BAKQ+] 
ISZ BASIZE 
JIMPZ ONQB 
TAD 7 l 
DCA ONQB+1 
JMPZ ONQB 
SETBAK, TAD ONQ3SW 
DCA ONQB+] 
CDF 
TAD XSKP 
DCAZ XIDLE+1 
TAD BAKQ+i1 
ISZ XIDLE+1] 
DCAZ XIDLE+1 
ISZ KIDLE+1 
TAD CIFCDF 
DCAZ XIDLE+1 
CIF CDF 18 
JMP ONQB+1 
EXTERN #IDLE 
XIDLE, ADDR #IDLE 
BAKQ, ADDR BAKRND 
BAKADR, ADDR BHADRS 
BQSIZE, 7-95 
CDF CIF 
JIMPZ BAKRND 
BAKRND, @ 
REPEAT 6 
JMP BAKRND<-2 
BHADRS, 93930;283;2 


/USE “ENTRY” TO PERMIT 


/SETUP #IDLE 
/GET ADDRESS OF IDLE JOB 


/STORE ONTO BACKGROUND JOB Q 
/MAKE A JMSZ 


/MORE ROOM? 
/YES 
/NO, CLOSE THE DOOR 


/CLOSE OFF #IDLE INITIALIZATION 


/FIX UP #IDLE 
/ADD SKIP TO IDLE CALL 
/GET ADDRESS OF ROUTINE 


/GET FIELD INSTR. 


EXTERNAL REFERENCE 


/\-5 JOBS 


APPENDIX A 
RALF Assembler Permanent Symbol Table 


Mnemonic Code 


FPP Memory Reference Instructions 


FADD 1000 SETB 1110 
FADDM 5000 SETX 1100 
FDIV 3000 STARTD 0006 
FLDA 0000 STARTE 0050 
FMUL 4000 STARTF 0005 
FMULM 7000 TRAP3 3000 
FSTA 6000 TRAP 4 4000 
FSUB 2000 TRAP5 5000 
TRAP6 6000 
IoT's TRAP7 7000 
XTA 0030 
FPINT 6551 
FPICL 6552 Pseudo-Operators 
FPCOM 6553 
FPHLT 6554 ADDR 
FPST 6555 BASE 
FPRST 6556 COMMON 
FPIST 6557 COMMZ 
DECIMAL 
8-Mode Memory Reference Instructions DPCHK 
E 
AND 0000 END 
TAD 1000 ENTRY 
ISZ 2000 EXTERN 
DCA 3000 F 
JMS 4000 FIELD1 
JMP 5000 IFNDEF 
IoT 6000 IFNEG 
OPR 7000 IFNZRO 
IFPO 
FPP Special Format Instructions IFREF 
IF ZERO 
ADDX 0110 INDEX 
ALN 0010 LISTOFF 
ATX 0020 LISTON 
FCLA 0002 OCTAL 
FEXIT 0 ORG 
FNEG 0003 REPEAT 
FNOP 0040 SECT 
FNORM 0004 SECT8 
FPAUSE 0001 TEXT 
JA 1030 ZBLOCK 
JAC 0007 IFFLAP 
JAL 1070 IFRALF 
JEQ 1000 IFSW 
JGE 1010 IFNSW 
JGT 1060 
JLE 1020 
JLT 1050 
JNE 1040 
JSA 1120 
JSR 1130 
JXN 2000 


APPENDIX B 
ASSEMBLY INSTRUCTIONS 


The following sequence of commands may be used to assemble the OS/8 
FORTRAN IV system programs. It is assumed that all PAL language 
sources reside on DSK. In this example, DTAl is shown as the 
target device, however any other device could be used via the 
appropriate ASSIGN command. Note that PASS20.SV is produced by 
conditional assembly of PASS2.PA and that the "0" in PASS20 is an 
oh, not a zero. The initial dot and asterisk characters on every 
command line shown are printed by the monitor. All other characters 
(except carriage return, in some cases) are typed by the user. 

Type CTRL/Z after each of the three system pauses at point @® : 

to continue assembly of PASS20. Type ALT MODE to produce the "S$" 
character. 

-ASSIGN DTA1 DEV 

-R PAL8 

*F4,BN, LIST. LS<F4S 

-R ABSLDR 

*PFAS 

»~SAVE DEV F4=0;12200S 

-R PAL8 

*PASS2.BN,LIST.LS<PASS2$ 

-R ABSLDR 

*PASS2S 

-SAVE DEV PASS2=0;5000$ 

-R PAL8 
*PASS20.BN,LIST.LS<TTY: , DSK: PASS2SOVERLY=1 
»~R ABSLDR @ 
- PASS20$ 

-SAVE DEV PASS20=0; 7605S 
-R PAL8 

*PASS3 .BN, LIST. LS<PASS35$ 
»-R ABSLDR 

*PASS3$ 

~SAVE DEV PASS3=0;400S 
-R PALS8& 
*RALF.BN,LIST.LS<RALFS 
-~R ABSLDR 

*RALFS 

SAVE DEV RALF=0;200S 

-R PAL8 
*LOAD. BN, LIST. LS<LOADS 
~R ABSLDR 

*LOADS 

~SAVE DEV LOAD=0; 200 

-R PAL8 
*FRTS.BN, LIST. LS<RTS, RTLS 
-R ABSLDR 

*FRTSS 

~SAVE DEV FRTS=0; 200 
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Argument passing, 2-10 
Arithmetic expression 
analyser, 1-2 


Background jobs, 4-1 
Binary buffer table, 3-8 
Binary section table, 3-10 
Block count sequence number, 4-1 
COMMON information block, 1-7 
Communication, 2-9 

OMM 2-12 
Compilation, 1-1 
Compiler symbol table, 1-2 
Device handlers, 4-16 
Defice flag handlers, 4-2 
Dimension information block, 
DSRN table, 4-8 
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Entry point, 2-1 
EQUIVALENCE information table, 
ne 


ESD, 2-1, 2-5, 2-6 

ESD correspondence table, 

External symbol, 2-1 

External symbol dictionary, 
2-5, 2-6 


3-8 


cae 


FIELD1 sections, 
Files, 4-13 
Formatted I/O, 
FRTS 


Calling sequence, 
|e 


2-13 
4-13 


ie 
Core maps, 


Entry points, 4-5 
Initialization, 4-14 


Page zero, 4-10 
Header block, 3-13 
Idle jobs, 4-1 
Indirect addressing, 2-7 
Interrupts, 

Spurious, 4-15 
Keyword, 1-2 
LIBRA, 5-2 
Library, 2-1 

Format, 5-1 
Line printer handler, 4-14 
Literais, 1-4, 1-5 


Loader, 3-1 
Core maps, 3-2 to 3-4 
Image file, 
Subroutines, 


Loader symbol table, 3-1, 
Magic number, 1-6 

Mixing code, 2-8 

Module, 2-1 

Module count table, 3-12 


4 Module descriptor table, 
Off-page references, 2-19 
Optimized code, 2-11 
Output codes, 1-7 
Overlay table, 3-10 
7/P option, 4-21 
Page boundaries, 2-18 
PASS1, 1-1 

Output, 1-7 
Subroutines, 1-10 
PASS2, 1-12 
Error list, 1-14 
Skeleton tables, 1-14 
Symbol table, 1-14 
Subroutines, 1-15 
PASS3, 1-17 
PDP-8 code, 2-7 
Program loading, 3-9 
Program termination, 4-2 


Pseudo-ops, 2-7 
RALF, 2-1 


Expressions, 2-4 


Symbol table, 2-5 
RALF output file, 2-6 
Section, 2-1 
Section types, 2-11 
Statement number, 1-4 
Subroutine calls, 2-9 


Subroutine return 
Symbol table, 


sequence, 


Compiler, 1-14 

Loader, 3-7 

RALF, 2-5 
Termination, program, 4-22 
TRAP3 and TRAP4, 2-8 
Variable type word, 1-3 


8-mode sections, 2-14 
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